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I fSITRODUZ I ONE 

II FORTH e’ 11 prodotto della mente di un uomo che ai chiama 
Charles Moore. Dopo aver provato vari aspetti del linguaggio per 
diversi anni, inizio’ a sintetizzarli verso la fine degli anni 
sessanta, ci volle pero’ ancora del tempo prima che ne emergesse 
una versione completamente coerente. Considerando la sua 
invenzione come la quarta generazione del linguaggi per 
computerà, ma costretto dalla sua attrezzatura a nomi di cinque 
lettere, scelse di far cadere la "u" e chiamo’ la sua idea 
"FORTH*. 

Da allora, il linguaggio fu sviluppato in diverse direzioni, 
le due versioni principali divennero F0RTH79 e flg-FORTH. Il 
prefisso *flg" si riferisce al FORTH Interest Group di San 
Carlos, California che ha cercato di rendere accessibile il 
linguaggio al maggior numero possibile di utenti. 

Tale numero oggi si estende a utenti di una gran quantità’ di 
mlcrocomputers, ma ogni implementazione e’ leggermente 
differente dalle altre, la definizione originale del flg-FORTH 
ammette ampie possibilità’ per la scelta individuale delle 
caraterlstlche. questo libro e’ basato specificamente sul FORTH 
Spectrum della Abersoft, che e’ forse la versione piu’ semplice 
e completa disponibile. La maggior parte di quanto verrà’ detto 
e' cc^munque applicabile ad altre versioni del flg-FORTH e, dove 
altra versioni omettono alcune delle parole descritte, sara’ 
possibile implementarle par ottenere 1’Abersoft standard, anche 
se alcune caratteristiche saranno piu’ difficili da ottenere. 

Il F0RTH79 e’ un’altra faccenda. Usa parole diverse e da’ ad 
alcune parole altri slnglficatl; e mentre il concetto di base e’ 
essenzialmente lo stesso del flg-FORTH, 1’ implementazione e’ 
piuttosto differente. Tuttavia, la flessibilità’ e’ una 
caratteristica di entrambi i tipi di FORTH, e questo può’ 
consentire di levigare alcune delle discrepanze tramite 
l’acquisizione di nuove parole e la revisione delle definizioni. 

Un grosso problema che i principianti del FORTH devono 
affrontare riguarda le dimensioni del "vocabolario", che e’ la 
lista di parole predefinite. In genere e’ tabulata nell’ordine 
di rappresentazione delle parole secondo il codice ASCII, ma 
quando il vocabolario viene visualizzato in risposta 
all’istruzione VLIST (seguito da return) le parole sono in un 
ordine completamente diverso. In ogni caso, trovare una parola 
per fare una determinata operazione non e’ facile. L’approccio 
adottato qui e’ di raggruppare le parole di uso piu’ frequente a 
seconda del genere di azioni che queste esplicano, in modo che 
un dato tipo di funzione possa essere localizzato velocemente. 
In aggiunta, l’Appendice A fornisce una definizione completa 
delle parole standard nella forma di un sommario compresso del 
"dizionario", l’area di memoria nelle quali sono definite le 
parola. 

Comunque, sarebbe sbagliato aspettarsi di poter scrivere un 
programma FORTH immediatamente. L’approccio migliore e’ di 
imparare le parole operative a gruppi, sperimentando con queste 
finche’ non si acquisisce una profonda conoscenza del sistema. 



Poi potrete Iniziare a definire parole nuove per conto vostro 
con grande confidenza e, piu’ tardi, a definire interi 
programmi. 

Questo approccio progressivo e’ possibile polche’ il FORTH 
può’ essere usato a diversi livelli. Esso interpreterà’ singole 
parole esistenti o una serie di parole In modo "diretto* che 
può’ essere paragonato al modo diretto dal BASIC. D’altro canto, 
compilerà’ nuove parole , creando per loro nuovo spazio nel 
dizionario, e queste parole possono essere usate per la 
compilazione di altre definizioni. Alla fine, una singola parola 
chiamerà’ un programma completo. 

Gli inserimenti nel dizionario sono fatti in modo tale che le 
routlnes associate ad ogni parola possano essere trovate molto 
velocemente. Dove un interprete BASIC deve eseguire una 
scansione su una tabella per trovare il punto d’ingresso 
richiesto, il FORTH memorizza il punto d’ingresso direttamente, 
e non e’ richiesta alcuna scansione. Questo rende il FORTH molto 
piu’ veloce del BASIC, il che e’ forse il suo maggior pregio. Un 
altro pregio e’ l’economia nel 1’utl1izzo della memoria. 

Per apprezzare questi vantaggi, dovete essere preparati ad 
aiutare il linguaggio facendo cose che avreste fatto 
automaticamente usando il BASIC. Dovete pensare un po’ di piu’, 
tenendo un occhio su do’ che il programma sta facendo. In 
compenso, il FORTH vi dara’ una flessibilità’ limitata soltanto 
dalla vostra immaginazione. 

Per cominciare 

L’Abersoft impiega circa 70 secondi per essere caricato; quindi 
dovrebbe apparire sullo schermo questa intestazione: 

48k SPECTRUM flg-FORTH (versione) 

(c) Abersoft: 1983 

Questo indica che il vostro Spectrum e’ diventato una macchina 
FORTH. 

Il primo segno del cambiamento e’ che il cursore lampeggiante 
mostra una "C" anziché’ una "L". Polche’ la maggior parte delle 
parole standard del FORTH sono in caratteri maiuscoli, e’ piu’ 
conveniente lavorare in "modo maiuscolo", comunque potate sempre 
selezionare il modo "L" nel solito modo, usando CAPS SHIFT e 2. 

Noterete che il lieve beep indicante la pressione del tasti 
e’ sparito. Se ritorna, siete passati dal FORTH al BASIC per 
qualche motivo, ma e’ pooslblle tornare al FORTH con GOTO 3. 
Potete tornare deliberatamente al BASIC battendo MON e ENTER ma 
scoprirete che e’ possibile solo l’esecuzione diretta perche’ 
non c’e’ posto per fare aggiunte al breve programma BASIC già’ 
presente. 

I tasti non produrranno piu’ parole BASIC, che non sono 
necessarie In FORTH, Dovrete battere tutto lettera per lettera. 
Non c’e’ un modo esteso ma troverete che alcuni simboli 
normalmente ottenuti in questo modo, piu’ qualche altro, possono 
essere ottenuti usando SYMBOL SHIFT e certi altri tasti, es.: 

Il tasto "Y" da’ [ 

Il tasto "U" da’ 1 
Il tasto "A" da’ ~ 



Il tasto "S* da’ l 
Il tasto "D" da’ \ 

Il tasto "F* da’ { 

Il tasto "Q'' da’ > 

La grafica e’ accessibile nel solito modo. 

Una volta persa l’abitudine di usare 11 tasto •K" per LIST, 
che e’ una parola FORTH, non Incontrerete seri problemi. 

Sono state mantenute un certo numero di funzioni famlgliarl, 
come spiegato In dettaglio nel paragafo 'Caratteristiche 
particolari dello Spectrum", ma scoprirete che non hanno 
esattamente la stessa forma che nel BASIC, per esemplo, 1 
parametri devono precedere l’Istruzione, non seguirla. 

Un’Importante differenza concerne il BREAK. In alcune 
circostanze, premendo CAPS SHIFT e SPACE al Interromperà’ 
comunque 11 programma, ma viene fornita Uh’alterhatlva da CAPS 
SHIFT e 1. Questo, tuttavia, funzionerà’ solo se avete scritto 
11 programma prevedendo questo Input. Se non avete previsto il 
BREAK, potreste scoprire che 11 programma e’ entrato in un loop 
Infinito senza possibilità’ di uscita. Dettagli sul modo di 
evitarlo vengono forniti nel paragrafo sulle diramazioni e 
ricorslonl ma non e’ necessario che vi preoccupiate per 11 
momento. 

Se decidete di fare un altro tipo di interruzione, caricando 
un altro tipo di programma, dovete rllocare la RAMTOP, 
altrimenti otterreste 11 messaggio 'Out of Memory*. Il sistema 
piu’ facile e’ spegnare 11 computer e riaccenderlo, cosi’ che 
vengano Iniziaiizzatl 1 soliti parametri. 

Se vi Interessano queste faccende, l’area Iniziale occupata 
dal programma FORTH dopo 11 caricamento va da 5E06 a 8159, con 
riservato dello spazio di lavoro da CB40 In poi. Lo spazio 
intermedio e’ disponibile per le vostre parole FORTH, sotto 
forma di estensione del 'dizionario' che e’ la definizione 
fondamentale del FORTH. Il dizionario aumenta verso l’alto, e lo 
stack del calcolatore aumenta verso 11 basso. Se volete sapere 
quanto spazio rimane fra di loro, battere: 

FREE . ENTER 

Verrà’ mostrato 11 numero di bytes liberi. 

La ZX Printer può’ funzionare col FORTH. Accendetela con: 

1 LINK ENTER 

Spegnetela con: 

0 LINK ENTER 

A causa del fatto che 11 FORTH e’ per molti versi differente 
dalla magloranza degli altri linguaggi, 11 prossimo paragrafo 
esaminerà’ le sue caratteristiche generali. Se le conoscete 
già’, potete tranquillamente saltarlo. 


Nozioni EosesBinzleill sul FORTH 

Usato In modo diretto, 11 FORTH lavora come un calcolatore che 
opera In notazione inversa (Raverse Pollsh Notatlon). I dati che 
battete vengono mostrati sullo schermo e memorizzati in un 
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buffer* di 80 caratteri, che conterrà’ 2,5 linee di dati 
Quando 11 buffer e’ pieno, o se premete ENTER Indicando che 
l’input e' completo, il sistema comincia a scandire il buffer, 
fermandosi al primo spazio che trova. Il dato che e' stato 
scandito viene quindi confrontato con la lista di parole nel 
dizionario, che può’ essere vista tramite; 

VLIST ENTER 

Potare fermare 11 llstlng premendo BREAK (CAPS SHIFT/1), 
dato che la lista occupa piu’ spazio dell’area dello schermo. 

Sa 11 dato corrisponde a una parola definita In FORTH, viene 
eseguita l’azione associata a quella parola . Altrimenti, viene 
controllato se 11 dato e’ un numero valido. Se lo e’, il numero 
viene posto nello stack del calcolatore. Se non e’ ne’ una 
parola FORTH ne’ un numero valido, allora viene visualizzato 
l’errore 0, con la parola scorretta. 

Polche’ al usa la notazione Inversa, con 1 dati memorizzati 
In uno stack, le parole FORTH agiscono sugli ultimi numeri 
Inseriti. Provare questo: 

4 5». 

Lasciate uno spazio fra ogni elemento dell’Input, ricordate 
che lo "spazio” e’ il "delimitatore" standard che segna l’Inizio 
e la fine di una parola o di un numero. In risposta, verrà’ 
visualizzato 11 numero 20. Il sistema di funzionamento e’ 11 
seguente; il FORTH prende 1 dati dal primo spazio, in questo 
caso 11 numero 4. Polche’ si tratta di un numero e non di una 
parola FORTH, questo viene memorizzato nello stack. Il 
procedimento e’ ripetuto per 11 numero 5 e 11 risultato viene 
memorizzato sopra 11 4. Quindi 11 FORTH Incontra 11 "»*. Polche’ 
e’ una parola FORTH e cl troviamo nel modo diretto, questa viene 
eseguita. Il FORTH prende l’ultimo numero (5) dallo stack e 
quello Immediatamente sotto <4) e 11 moltipllca, mattando 11 
risultato nello stack. La prossima parola nel buffer e’ 11 punto 
".*. Questo fa apparire 11 risultato. 

Sa Inseriamo quanto segue: 

4 5 » 23 + . 

Fino al "»" tutto e’ come prima, con 11 risultato (20> nello 
stack. Il FORTH continua a leggere la linea e memorizza 11 23 

nello stack sopra 11 20, poi va a leggere la parola seguente. Il 
(+) e’ una parola FORTH; somma 1 due numeri In cima allo stack, 
23 e 20, e memorizza 11 risultato, 43, ancora nello stack. Il 
"punto", di nuovo, visualizza 11 risultato. 

Le azioni delle parole FORTH, In questi inputs sono state 
spiegate In un modo relativamente semplice che dovrebbe bastare 
per 11 momento, ma e’ evidente che sono necessarie definizioni 
esatte, che verranno fornite in seguito. 

Non e’ necessario scrivere un set completo di numeri e di 
parole su una stessa linea, ognuna di queste può’ andare su una 
linea diversa, seguita da ENTER, visto che 11 sistema di input 
tratta solo un elemento per volta. Se Inserite troppi caratteri, 
sovrasaaturando il buffer, otterreste probabilmente un messaggio 
d’errore, dato che l’ùltima parola inserita può’ non essere 
completa, ma 1 primi elementi della linea saranno trattati 
normalmente e, siccome 11 messaggio d’errore identifica la 

1 Area di memoria destinata a contenere temporaneamente informazioni in ingresso o in uscita (N.d.T.) 
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riprendere 


parola a cui si riferisce, saprete da dove 
1'inserimento. 

Non tutte le parole mostrate da VLIST possono essere usate in 
modo diretto, e un tentativo di usarle produrrà’ l’errore 17. 
Queste parole possono essere usate nel modo compilazione, che 
stabilisce nuovi inserimenti nel dizionario definendo nuove 
parole FORTH. 

Ecco un esempio: 

: TESTI » + . : 

I due punti informano il sistema che tutte le parole e 1 
numeri fino al seguente punto e virgola devono essere compilate 
e il risultato identificato con la parola TESTI. 

Ora inserite quanto segue: 

23 4 5 TESTI ; 

Il risultato e’ 43, come nell’esempio di prima. TESTI esegue 
la moltiplicazione, l’addizione, e la funzione di scrittura che 
prima avevamo inserito come parole separate. Sarebbe una buona 
idea simulare lo stack su carta per essere sicuri di avere i 
valori e gli operatori nell’ordine corretto. Se lo fate par 
l’operazione di cui popra, vedrete come il 23 venga prima. 

Potreste definire un’altra parola: 

: TEST2 23 4 5 TESTI ; 

Inserendo TEST2 verrà’ mostrato 43. Ciò’ non ha molto senso, 
ma serve ad illustrare come funziona la gerarchla FORTH. Alla 
fine, viene chiamato uh programma completo inserendo una singola 
parola. Questa parola definisce una lista di altre parole da 
eseguirsi a turno, e alcune o tutte le parole della lista 
possono definire ulteriori liste. 

E’ interessante confrontare do’ con l’azione del BASIC, che 
usa linee numerate contenenti istruzioni che specificano 
l’azione da eseguirsi. La numerazione viene usata per indicare 
l’ordine nel quale le istruzioni vanno eseguite. Un programma 
BASIC ben strutturato, tuttavia, può’ essere visto come un certo 
numero di blocchi fuhziohali, ognuno composto di un certo numero 
di linee, anche se alcuni programmi contengono talmente tante 
istruzioni su una linea che una linea può’ rappresentare uh 
blocco. Ciò’ rende il programma difficile da interpretare dal 
1istato. 

II FORTH, d’altro canto, da’ ad ogni blocco funzionale un 
nome che e’ associato ad una lista di nomi che definiscono le 
funzioni che devono essere espletate dal blocco. Gruppi di 
blocchi sono analogamente associati a ulteriori nomi e liste, 
finche’ un solo nome e lista porta tutti i blocchi in un unico 
programma chiamato da quel singolo nome. 

Chiaramente, questo non e’ un processo cui si può’ accedere 
troppo a caso. Siccome un programma BASIC può’ essere modificato 
con le funzioni di editing, e’ possibile a volte creare semplici 
routines procedendo a caso e correggendo gli errori nonappena 
diventano ovvi. Con il FORTH, e’ consigliabile una certa 
pianificazione. Questo pùo’ imporre una disciplina tediosa se 
preferita l’approccio piu’ casuale permesso dal BASIC, ma la 
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velocita’ d'esecuzione dal risultato rende conveniente lo 
sforzo. 

Un problema importante per coloro che si avvicinano al FORTH 
per la prima volta, e’ semplicemente il numero di parole 
disponibili . L’unica soluzione e’ imparare il vocabolario in 
sezioni, espandendo gradualmente la vostra comprensione sul 
raggio d’azione che potete trattare. Su questa base e’ impostato 
il resto di questo libro. Se la spiegazione dettagliata di 
qualche parola sembra troppo complessa, lasciatela perdere e 
tornateci piu’ tardi, accettando che la parola funziona come 
descritto. Scoprirete che potrete molto presto cominciare a 
capire quello che succede, anche per funzioni molto complesse. 

Un’altro problema per 1 principianti, sta nel fatto che tutti 
1 dati numerici vengono memorizzati in formato binarlo. Non 
molti anni or sono, il sistema binarlo era considerato 
incomprenslblle per chiunque non fosse un esperto di computers. 
Dopo una lezione su tale soggetto, un uomo si alzo', 
scarabocchio’ una serie di uno e di zero sulla lavagna, dicendo 
che nessuno avrebbe potuto ricavare un senso da do’. Come 
scrisse l’ultimo zero, una flebile voce dall'auditorium disse; 
"trecentottantaquattro’’, L’uomo sgrano’ gli occhi e si mise 
laboriosamente a controllare il valore di quell’ 
"incomprenaiblle’’ numero binarlo, per scoprire che la 
conversione era corretta. Il ragazzino che aveva fatto la 
conversione apparve sorpreso e spiego’ che tutto do’ che aveva 
fatto era stato di prendere la prima cifra e, quando veniva 
aggiunta un’altra cifra, aveva raddoppiato quello che aveva e 
sommato un’altra cifra. Per esemplo: 

1 1 

1 3 

0 6 

0 12 

0 24 

0 48 

0 96 

0 192 

0 384 

Il numero scritto alla lavagna ara 110000000, non certo il 
piu’ difficile dei numeri da convertire, ma il principio e’ 
utile da ricordare e si applica ad ogni base numerica. 

Per esemplo, in base 3, il numero 112020 si converte cosi’: 

1 1 

1 4 

2 14 

0 42 

2 128 

0 384 

Il FORTH esegue questa operazione per qualsiasi base 
desideriate selezionare, non solo in input ma anche in output. 
Questo può’ generare confusione se si sbaglia a valutare do' 
che accade, cosi’ lo studio del vocabolario inizierà’ con una 
occhiata al modo in cui 1 numeri vengono inseriti, memorizzati 
ed emessi. 
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CAPITOLO I : 

I 1 modo dljro-fc-to 


Questo capitolo tratta di quelle parole FORTH che possono essere 
inserite per l'esecuzione Immediata. Alcune versioni del BASIC 
possono essere usate in questo modo che viene allora denominato 
modo "diretto" o "calcolatore". In un capitolo successivo verrà’ 
esaminato l’uso della compilazione per la creazione di nuove 
parole, il che si dimostrerà’ piu’ utile per operazioni 
complesse. Tuttavia, banche’ lavorare in modo diretto possa 
sembrare piu’ lento e tedioso, da’ un’idea migliore di do’ che 
accade realmente. 

rappresentazione: dei numeri 


La chiave delle operazioni del FORTH e’ lo "stack". Per coloro 
che non hanno famlgliarita’ con il termine, uno stack* e’ un 
buffer che può’ essere paragonato allo spillone che usano le 
cassiere per conservare gli scontrini. Se mettiamo gli scontrini 
nello spillone quando ci vengono consegnati, il primo ad uscire 
Sara’ l’ultimo ad essere stato inserito. Il FORTH usa due 
stacks, uno per 1 calcoli ed uno per contenere gli Indirizzi 
associati. Questi saranno denominati Stack del Calcolatore <o, 
spesso, solamente Stack) e Return Stack rispettivamente. 

Nel FORTH Spectrum, lo stack dello Z80 viene usato per lo 
Stack del Calcolatore. Lo stack Z80 tratta dati in forma di 
parole a IG bit, anche quando non e’ coinvolto piu’ di un 
carattere ASCII, do’ si addice perfettamente al FORTH, I 
computers che; usano altri processori possono avere stacks che 
trattano parole a 8 bit, ma devono memorizzare due parole 
successive per ogni trasferimento allo stack. In generale, 
tranne che per funzioni molto specializzate, il FORTH rimane 
inalterato dalle caratteristica della macchina. 

Un altro punto e’ che il FORTH non fa distinzioni fra 1 tipi 
di dati, il che occasionalmente può’ avere conseguenze 
sconcertanti. Il significato delle parole di dati dipende dal 
modo in cui sono trattate. Per esemplo, battete 40000 e poi 
ENTER. Quindi battete un punto, seguito ancora da ENTER. Il 
punto mostra il numero che si trova in cima allo stack, che e’, 
ovviamente, l’ultimo numero inserito. Il numero mostrato e’ 
-25536 e non 40000. Da dove e' sbucato? 

Numeri con segno e senza segno 

Un numero binario a IG bit può’ avere 65536 valori differenti. 
Nella rappresentazione "binaria pura" questi valori variano tra 
0 e 65535, avendo il bit n valore 2''n, dova il bit meno 
significativo e’ il bit 0. Se, d’altro canto, adottiamo la 
rappresentazione "in complemento a 2", il valore del bit piu’ 
significativo e’ -2^15 anziché’ 2^15. Il reato del blts può’ 


2 Letteralmente “cataste". (N.d.T.) 



rappresentare valori da 0 a 321S1. Quando il bit 15 e' 0, tale 
e' 11 campo di valori del numero completo. Se il bit 15 e’ 1, 
allora viene sottratto 32768 <2''15), avendosi un campo di valori 
da -32768 a -1. Siccome 11 numero e' sempre positivo se 11 bit 
15 e' a 0 e negativo quando 11 bit 15 e’ a 1, questo bit e’ 
detto bit del "segno* (slgn bit). 

Qui e’ necessario un avvertimento riguardo al numero -32768. 
Questo si comporta In modo un poco bizzarro, rimanendo Immutato 
dalla negazione. Riguardo a questo, può’ essere paragonato allo 
zero. E’ meglio evitarlo, lavorando con un campo di valori di 
+32767. 

Il FORTH vi consente di scegliere fra la rappresentazione 
binarla pura o quella In complemento a 2. Il semplice punto, 
mostrerà’ un numero sulla base del complemento a 2, mentre U. 
assumerà’ che 11 numero sia In binarlo puro. Siccome 11 numero 
40000 e’ fuori dal campo di valori del complemento a 2, e’ stato 
memorizzato come binarlo puro. Usando 11 punto, il numero viene 
Interpretato come se fosse In complemento a 2. Sla 40000 che 
-25536 sono rappresentati dal numero binario 1001110001000000. 
Notate che questi possono raggiungere il valore di 65536. 

Numeri doppi 

Il campo di valori per un numero a 16 bit e’ piuttosto limitato 
e cosi’ 11 FORTH prevede l’uso di numeri a 32 bit, che vengono 
trattati come due successivi numeri nello stack, con 1 16 bit 
superiori piu’ vicini alla cima dello stack. Possono essere 
rappresentati 4.294.867.206 valori differenti, e In complemento 
a 2 si ha un campo di valori di 2.147.483.647. Il numero anomalo 
e’, in questo caso, -2.147.483.648. 

E’ possibile Inserire un numero doppio mettendo un punto 
decimale da qualche parte nel numero. La posizione del punto non 
e’ direttamente rilevante, ma 11 numero di cifre alla sua destra 
viene annotata nella variabile DPL per un possibile riferimento 
futuro. 

Un fatto da ricordare e’ che un numero fuori dal campo di 
valori 32767, Inserito senza un punto decimale, può’ causare 
problemi. La routine di Input Interpeta sempre un Input numerico 
come numero doppio, ma se non cl sono punti decimali la parte 
superiore del risultato viene eliminata. Questo può’ dare 
occasionalmente risultati mistificanti. 

Un numero doppio può’ essere visualizzato dalla parola D. , 
che assume che si tratti di un numero doppio e In complemento a 
2 . 

Basi numeriche 

Quando non altrimenti specificato, 11 FORTH accetta Inputs 
numerici e genera outputs numerici Intendendo che si tratti di 
numeri decimali, convertendo 1 numeri nella e dalla 
rappresentazione binarla Interna. Se altrimenti Istruito, esso 
lavorerà’ con qualsiasi base numerica si desideri, entro limiti 
ragionevoli. La parola HEX chiama la notazione esadeclmale, la 
parola DECIMAL ristabilisce la notazione decimale. E questo, e’ 
solo l’Inizio. 



La parola I dice al FORTH di memorizzare un numero nella 
eeconda posizione dello stack In una locazione definita dalla 
cima dello stack. La frase h BASE ! memorizzerà* dunque 11 
numero n nella variabile BASE, che determina la base numerica da 
usarsi In Input e In output. HEX equivale a 16 BASE ! e DECIMAL 
equivale a 10 BASE I , mentre per lavorare In binarlo si scrive 
2 BASE ! . Queste Istruzioni presuppongono che sla operativo 11 
decimale, se e’ stato selezionato 11 binarlo, 10 BASE I non fa 
niente, visto che In binarlo 10 ha valore dUel Dovete fare 
1010 BASE ! . 

Per cifre con valore maggiore di 9, le lettere da A a Z 
servono a estendere 11 campo di valori delle cifre, sarebbe 
cosi’ possibile lavorare In base 35; oltre tale valore, verranno 

La parola ® (SYMBOL’SHIFT + 2) dice al FORTH di prendere 11 
contenuto della locazione definita dalla cima dello stack e di 
mettere 11 risultato nello stack, cosi’, potreste pensare che la 
base corrente possa essere determinata da BASE 0 . , ma 11 

risultato e’ sempre 10. Riuscite a capire perche’? Piu’ avanti 
c'e’ un aiuto. 

Usando la notazione esadeclmale, e’ preferibile adottare la 
convenzione di numeri senza segno In 'binarlo puro*, polche’ 1 
numeri esadeclmall negadlvl creano confusione. 

Numeri Formattati 

Una delle virtù’ del FORTH e’ la capacita’ di visualizzare 1 
numeri In formato molto preciso. L'esemplo piu’ semplice chiama 
In causa la parola .R per numeri singoli con segno, D.R per 
numeri doppi, e U.R per numeri singoli senza segno. 

Queste parole prendono 11 numero In cima allo stack che 
definisce un "campo* di quel numero di posizioni di caratteri. 
Il prossimo numero dello stack viene visualizzato alla destra 
del campo. Se un output numerico normale aggiunge uno spazio 
dopo 11 numero, questa funzioni non lo fanno. E' quindi 
relativamente facile costruire tabulazioni con 1 numeri 
"giustificati a destra*, cioè’ con le cifre piu’ a destra 
Incolonnate. Altre possibilità’ di questo genere emergeranno a 
tempo debito. 

Nel frattempo, abbiamo cominciato definendo dieci parole e 
frasi FORTH. 

Per comodità’, queste possono essere riassunte come segue: 

TOS (Top Of Stack) significa "Cima dello stack*, 20S (2nd 
On Stack) significa *11 secondo nello stack* e cosi’ via. 

Rimuove TOS e lo visualizza come numero singolo 
con segno. 

U. Rimuove TOS e lo visualizza come numero singolo 

senza segno. 

D. Rimuove TOS, 20S e 11 visualizza come numero 

doppio con segno. 

n BASE ! Stabilisce la notazione In base n. 

HEX Stabilisce la notazione esadeclmale. 

DECIMAL Stabilisce la notazione decimale. 



BASE 9 
.R 

U.R 

D.R 


Legge la base corrente. 

Rimuove TOS, 20S. Visualizza 20S come singolo 
numero con segno alla destra di un campo di TOS 
caratteerl. 

Rimuove TOS, 20S. Visualizza 20S come singolo 
numero senza segno alla destra di un campo di 
TOS caratteri. 

Rimuove TOS, 20S, 308 e visualizza 20S, 30S 
come numero doppio con segno alla destra di un 
campo di TOS caratteri. 


FUNZIONI 


aritmetiche: rr imi ti ve 


Le parola FORTH sono costruite sulla base di un certo numero di 
blocchi di codici macchina. Altre parole sono create combinando 
0 modificando queste parole 'primitive*, ma l’azione di queste 
ultime può’ essere compresa solo se prima si esaminano le 
primitive. 

Potreste essere sorpresi dal fatto che ci siano solo otto 
primitive aritmetiche. Piu’ avanti vedremo che queste formano la 
base di altre diciassette derivate. 

E’ Importante ricordare che le parole FORTH agiscono su 
numeri o altri dati che sono già’ nello stack. Per addizionare 7 
e Si dobbiamo fare: 

7 8 + 

Esaminando quello che ej successo, cominciamo battendo 1 
caratteri e gli spazi, che sono memorizzati nel buffer di Input 
terminale. La routine INTERPRET prende, a turno, 1 dati 
delimitati dagli spazi. Vede che 7 e’ uh numero valido, avendolo 
prima considerato come una possibile parola FORTH, e il numero 7 
va nello stack. 8 e’ trattato In modo slmile, e va anch’esso 
nello stack. Il numero 8 e’ 'TOS' e 11 7 e’ '20S*. 11 segno 
piu’, tuttavia, e’ riconosciuta come parola FORTH, e viene 
eseguita. Prende le due cifre In cima allo stack, le somma e 
mette 11 risultato di nuovo nello stack. Possiamo adesso 
visualizzare 11 risultato usando 11 punto oppure *U.*. 

Incidentalmente, non c’era bisogno di porre tutti e tre 1 
caratteri sulla stessa linea. L’effetto sarebbe stato lo stesso 
se avessimo Inserito; 

7 

8 

+ 

Questo perche’ 11 FORTH opera su ogni parola o numero a 
turno. Premendo ENTER, Invitiamo semplicemente INTERPRET a 
esaminare quello che e’ stato Inserito nel buffer di Input 
terminale (Terminal Input Buffer, abbreviato In TIB), Se volete 
sapere dove si trova il TIB, HEX TIB 9 U. ve lo dira’. Fa tutto 
parte del servizio FORTHI 

Anche 11 segno meno e’ una parola FORTH, rimuove 1 primi due 
numeri dello stack, sottrae TOS da 20S e pone 11 risultato di 
nuovo in TOS. 
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Questo tipo di calcolo e' noto come notazione inversa, e 
poiché' e’ stato usato in qualche calcolatore, può’ non essere 
del tutto sconosciuto. Esso evita ambiguità’, giacche’ gli 
operatori agiscono in un modo definito esattamente su numeri 
definiti esattamente. Dove la notazione aritmetica normale 
necessita di parentesi e di regole di priorità’ per determinare 
la sua interpretazione, la notazione Inversa non lascia posto a 
dubbi. 

D’altro canto, richiede che 1 numeri giusti si trovino nella 
posizione giusta per poter essere elaborati nel momento giusto, 
e do’ può’ richiedere una certa prudenza attraverso una 
preventiva pianificazione. Una scorsa alle definizioni del 
dizionario in Appendice A rivelerà’ qualche esempio 
interessante. 

La prossima "primitiva* e’ U» , che prende TOS e 20S e mette 
il loro prodotto nello stack sotto forma di numero doppio. Poi 
abbiamo U/MOD che prende 1 primi tre numeri nello stack, tratta 
li secondo e il terzo come numero doppio da dividere per il 
primo numero. Il resto viene messo nello stack come singolo 
numero e il quoziente viene messo anch’esso nello stack sopra il 
resto. 

Mettere il resto nello stack può’ sembrare inutile, ma non e’ 
cosi’ per un’ottima ragione. Supponete di avere nello stack un 
numero doppio che rappresenta del secondi. Aggiungendo 60 U/MOD 
il numero verrà’ diviso per 60 e il quoziente dara’ il numero 
del minuti, il resto saranno 1 secondi che rimangono. 'Provate: 

200. 60 U/MOD . . 

Il punto decimale dopo 200 e’ necessario per stabilire che 
questi e’ un numero doppio perche’ U/MOD possa funzionare. 
Possiamo usare 1 punti per gli outputs polche’ 1 risultati 
saranno minori di 32767 e non si fara’ confusione con 1 segni. 
Provate ora: 

36484. 60 U/MOD 0 60 U/MOD . . . 

L’inserimento dello zero e’ necessario per fare, dalla parola 
singola risultante dalla prima operazione, una parola doppia in 
modo che il secondo U/MOD possa lavorare. Le tre cifre 
rappresentano ore, minuti e secondi. 

Questo può’ essere visto come un calcolo in base 60, e la 
routine per gli output decimali lavora in una base simile a 
quella mostrata sopra, tranne che 60 e’ sostituito da 10. 

Ci sono volte in cui un numero singolo va convertito in un 
numero doppio, magari per poter usare U/MOD o un altro operatore 
slmile. Se U/MOD viene usato con uh numero singolo, questi 
piglierà’ qualsiasi cosa si trovi nello stack e lavorerà’ su di 
essa. Una volta ancora, potrebbero esserci strani risultati. 

Se il numero singolo e’ senza segno, possiamo estenderlo 
mettendo uno zero nello stack a formare la meta’ superiore del 
numero. Se il numero singolo e’ con segno, e vogliamo conservare 
il segno, dobbiamo usare S->D , che mette uno zero nello stack 
se il numero singolo e’ positivo o FFFFH se il numero singolo e’ 
negativo. Questa vlen detta "propagazione del bit segno*. 

Per sommare fra di loro due numeri doppi, va usato D+ . Esso 
rimuove quattro numeri dallo stack, li tratta come due numeri 
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doppi, 11 somma e mette 11 risultato nello stack come numero 
doppio. 

Le ultime due primitive eseguono la negazione, MINUS agisce 
sul numeri singoli e DMINUS sul numeri doppi. La loro azione e* 
di sottrarre 11 numero da zero. Per tutti gli scopi. Il numero 
sembra rimanere nello stesso punto dello stack. Infatti viene 
prelevato e rimesso ancora nello stack. 

Queste otto primitive possono sembrare alquanto Inadeguate, 
ma prima di esaminare le diciassette derivate, dobbiamo 
considerare 1 manipolatori dello stack, senza 1 quali 11 FORTH 
sarebbe veramente molto limitato. 

Gli operatori descritti In questo paragrafo possono essere 
cosi’ riassunti; 

+ Rimuove TOS, 20S. Pone la loro somma nello stack. 

Rimuove TOS, 20S, Pone 20S-T0S nello stack. 

Uf Rimuove TOS, 20S. Pone 11 loro prodotto nello 

stack sotto forma di numero doppio. 

U/MOD Rimuove TOS, 20S, 30S. Tratta 20S e 30S come 

numero doppio, lo divide per TOS. Mette 11 resto 
nello stack e poi 11 quoziente. Tutti 1 numeri 
sono considerati senza segno. 

0+ Rimuove TOS, 20S, 308, 40S. Considerandoli due 

numeri doppi, pone 11 numero doppio risultante 
dalla loro somma nello stack. 

S->D Estende 11 segno di un numero singolo a formare 
uh numero doppio. Il numero originale diventa 
20S, l’estensione TOS. 

MINUS Nega 11 numero singolo In TOS. 

DMINUS Nega 11 numero doppio In TOS e 20S. 


I MANIROLATORI DELLO STACK 


E’ evidente che le operazioni matematiche e le altre operazioni 
creeranno una certa confusione nello stack per poter portare 11 
dato richiesto nell’esatta posizione. Il che non e’ un problema 
grave quando 11 numero di dati nello stack e’ piccolo, ma una 
routine che sara’ descritta piu’ avanti coinvolge fino a 72 
numeri nello stack contemporaneamente, e questo e’ un problema 
piu’ complesso. 

Una delle parole piu’ sfruttate In FORTH e’ DUP ,che duplica 
11 TOS aggiungendo una copia del TOS originala. E’ essenziale 
quando 11 TOS viene controllato, polche’ 11 controllo distrugga 
11 numero se non era stato duplicato. Una variante e’ -DUP che 
duplica 11 TOS solo se non e’ zero. E’ utile dova non si abbia 
piu’ bisogno dal TOS quando questo raggiunge 11 valore zero. 
C’e’ anche 2DUP, che duplica TOS e 20S. E’ usato per duplicare 
numeri doppi, ma può’ essere usato anche con numeri singoli. 
Poniamo che si voglia calcolare (4f3>«3t4 . Possiamo usare: 
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4 S 

Stack 

4 3 

2DUP 

4 3 4 3 

+ 

4 3 7 

U» 

4 21 0 

DROP 

4 21 

+ 

25 


U» genera un numero doppio, cosi’ scartiamo la parte 
superiore del numero a 16 bit con DROP , che scarta TOS. 2DR0P 
scarta TOS a 20S. 

Poi abbiamo SWAP, che scambia TOS e 20S e 2SWAP che scambia 
T0S/20S con 30S/40S. 

OVER e’ molto utile. Aggiunge un nuovo TOS con una copia del 
precedente 20S. 20VER aggiunge un nuovo TOS e 20S che sono la 
copia dei precedenti SOS e 40S. 

Finalmente, in questo gruppo, ROT ruota i primi tre numeri 
dello stack, portando SOS a TOS, 20S e TOS a 20S. 

Quando comincerete a scrivere programmi di ampia portata, 
scoprirete che e’ molto utile - se non essenziale - scrivere 
tabelle come quella riportata piu’ sotto, per poter seguire i 
movimenti dello stack. 

Facendo do’, vi renderete presto conto che non c’e’ modo di 
effettuare i cambiamenti necessari par portare numeri sepolti 
profondamente nello stack, in cima a questo, ma scoprirete che 
il problema e’ semplificato quando impareremo a compilare 
definizioni di nuove parole. 

A causa di questa limitazione, conviene spesso introdurre 
numeri nel corso del calcoli. Questi possono essere inclusi in 
Iputs, 0 possono - come vedremo a tempo debito - essere presi da 
costanti e variabili. Siccome do’ occupa ulteriore memoria, 
viene considerato antieconomico dai puristi dal FORTH ma non ha 
senso sforzarsi troppo per raggiungere la perfezione. 

I manipolatori che sono stati menzionati possono essere 
definiti come segue: 


Stadk prima Stack dopo 


DUP 

a 

a 

a 



2DUP 

a b 

a 

b 

a 

b 

DROP 

a 





2DR0P 

a b 





SWAP 

a b 

b 

a 



OVER 

a b 

a 

b 

a 


20VER 

a b c d 

a 

b 

c 

d a b 

ROT 

a b c 

h 

c 

a 



Ricordate che la cima dello stack e’ il numero all’estrema 
destra . Vengono mostrati solo i dati rilevanti. Ci possono 
essere altri dati "dietro" a questi, cioè’ piu’ profondi nello 
stack e a sinistra di quelli mostrati. Questi rimangono 
inalterati dall’azione del manipolatori. 
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ALTRI MANIROLATORI 


A questo punto e’ necessario menzionare alcuni manipolatori 
dello stack a del display che non rientrano convenientemente In 
altre categorie. 

In primo luogo ce ne sono tre che non sono accessibili In 
modo diretto ma che vengono usati per produrre alcune funzioni 
aritmetiche derivate. Abbiamo già’ fatto riferimento al Return 
Stack. Qualche volta e' conveniente sottrarre la cima dallo 
stack del calcolatore dall’azione Immediata, magari per 
permettere l’accesso a dati piu’ sotto nello stack. Queste 
parole facilitano 11 compito permettendo alla cima dello stack 
del calcolatore di essere trasferita temporaneamente nel Return 
Stack. 

>R rimuove 11 TOS e trasferisce 11 dato In TORS (Top 

of Return Stack, cioè’ cima del Return Stack). 

R< esegue la funzione opposta. 

R copia 11 TORS In TOS, senza alterare TORS, 

Queste parole vanno usate con prudenza, 11 Return Stack viene 
riportato al suo stato originale prima che sla completata una 
definizione, o si faccia riferimento al cohtenuto del Return 
Stack per altri scopi, come nel controllo del cicli ricorsivi. 
(E’ stata presa una cantonata di questo genere nella definizione 
di 20VER nel primi nastri Abersoft. Se scoprite che HEX 7F4E 9 
U. da’ 6173, avete l’errore, che può’ essere corretto con HEX 
6188 DUP 7F4E ! 7F50 ! >. 

I manipolatori dello schermo sono piuttosto ovvi. CR chiama 
una nuova linea (Newllne), CLS cancella lo schermo. SPACE emette 
uno spazio, mentre n SPACES emette n spazi. 

Nel modo diretto, ." stringa" scrive 1 caratteri stringa 
delimitati dagli apici. Corrisponde al BASIC PRINT '’XXXXX". 


ALTRE FUNZIONI ARITMETICHE 


A questo punto, armati del manipolatori dello stack, possiamo 
vedere come sono state create le altre diciassette funzioni 
aritmetiche. Dobbiamo comunque dare prima uno sguardo agli 
operatori logici, anch’essl coinvolti. 

AND prende TOS e 20S e 11 confronta bit per bit. Quando 
entrambi hanno un determinato bit nella condizione di verità’. 
Il bit corrispondente nel risultato e’ messo In condizione di 
verità’. Altrimenti 11 bit e’ messo In condizione di falsità’. 
Il risultato viene posto nello stack. 

OR lavora Ih modo slmile, ma mette In verità’ Il bit del 
risultato se TOS o 20S hanno un bit varo In quella posizione. 

XOR lavora anch’esso In modo slmile ma mette un bit vero nel 
risultato se 11 bit corrispondente In TOS e 20S e’ diverso. Un 
uso interessante e’ di ottenere un risultato con 11 bit segno 
messo a uno se 1 segni di TOS e 20S sono diversi. 
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Alcuni del derivati aritmetici sono piuttosto semplici. 1+ e' 
equivalente a 1 +, e aggiunge 1 a TOS. Analogamente 2+ e’ 
equivalente a 2 + e aggiunge 2 a TOS. 

Poi abbiamo +- che rimuove TOS e nega 11 nuovo TOS se 11 TOS 
originale era negativo. E’ Implementato chiamando MINUS se TOS 
era minore di zero. La versione per 1 numumerl doppi e’ D+- , 
che rimuove TOS e nega 11 numero doppio In 20S e 305 se TOS era 
negativo. 

Vengono poi MIN e MAX . Prelevano TOS e 20S, ne scartano uno 
e mettono 11 rimanente In TOS. MIN rimette 11 numero che era 
minore, MAX 11 maggiore. In entrambi 1 casi 2DUP crea una copia 
di TOS e 20S da usare come base di confronto,e poi scarta uno 
degli Inserimenti originali. 

Alla fine, al primo livello di derivazione abbiamo M/MOD , 
che lavora come U/MOD tranne che lascia un numero doppio come 
risultato anziché’ un numero singolo. E’ utile lavorando con 
numeri grandi. La parola e’ costruita come segue; 


>R 

0 

R 

U/MOD 

R< 

SWAP 

>R 

U/MOD 

R> 


Stack 
a b c 
a b 
a b 0 
a b c 0 
a d e 

a d e c 
a d c e 
a d c 
t g 

t g e 


c In TORS 

fa di b un numero doppio 
richiama c 

divide b per c, quoziente e 
resto d 

richiama c, cancella TORS 
e In TORS 

a/d diviso per c, quoziente g 
resto f 

richiama e, cancella TORS 


Vengono eseguite due divisioni. La prima e' "scalata* di un 
fattore di 65536, polche’ d In realta’ e’ la parte superiore di 
un numero doppio. Il quoziente eli resto vengono scalati allo 
stesso modo, cosi’ e’ possibile "concatenare* a e d nella forma 
di un numero doppio valido che e’ ancora diviso per c. I due 
quozienti g ed e possono quindi essere "concatenati* come numero 
doppio. 

Al secondo livello di derivazione, abbiamo ABS e OABS. ABS e’ 
Implementato da DUP +- . TOS viene duplicato e la copia rimossa. 
Se e’ negativa, 11 TOS originale viene negato. Qualsiasi cosa 
accada, TOS risulta positivo, rimanendo conservato 11 valore 
assoluto. DABS usa analogamente 2DUP Df- per eseguire lo stesso 
processo su un numero doppio. 

Giungiamo ora a M/ e M« . M* genera un numero doppio prodotto 
di due numeri singoli con segno. E’ basato su U» , con le 
aggiunte atte a preservare 1 segni. 

Stack 
a b 

2DUP a b a b 

XOR a b c ce’ positivo se a e b hahno 

lo stesso segno 
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>R 

a b 

c in TORS 

ABS 

a b 

b diventa assoluto 

AWAP 

b a 


ABS 

b a 

a diventa assoluto 

U* 

d e 

prodotto 

R> 

dee 

c da TORS. TORS cancellato 

D+- 

d e 

nega d/e se c e’ negativo 


La funzione XOR viene usata per definire un flag* Indicante 
11 segno del risultato richiesto, che e’ contenuto nel Return 
Stack mentre viene eseguito 11 calcolo. 

M/ e' leggermente piu' complicato: 

Stack 



a 

b 

c 



OVER 

a 

b 

c 

b 


>R 

a 

b 

c 


b in TORS 

>R 

a 

b 



c In TORS 

OABS 

a 

b 



11 doppio numero a b diventa 
positivo 

R 

a 

b 

c 


c copiato da TORS... 

ABS 

a 

b 

c 


e fatto diventare positivo 

U/MOD 

d 

e 



a/b diviso per c, quoziente e 
resto d 

R> 

d 

e 

c 


c da TORS. TORS»b 

R 

d 

e 

c 

b 

b copiato da TORS 

XOR 

d 

e 

f 


f positivo se b e c hanno lo 
stesso segno 

+- 

d 

e 



nega e se f e’ negativo 

SWAP 

e 

d 




R> 

e 

d 

b 


b da TORS, TORS cancellato 

+- 

e 

d 



nega d se b e’ negativo 

SWAP 

d 

e 



resto d quoziente e. 


I numeri a/b e c, ma non le loro copie nel Return Stack, 
vengono resi positivi e U/MOD calcola 11 valore assoluto del 
resto e del quoziente. Il quoziente viene negato se 11 segno di 
b e c differisce. Al resto viene dato 11 segno di b. 

Al prossimo livello abbiamo delle semplici derivate. */MOD 
combina la moltiplicazione e la divisione. Rimuove tre numeri 
dallo stack, tutti come numeri singoli. 20S e 30S vengono 
moltipllcati fra di loro, e 11 numero doppio prodotto viene 
diviso per TOS. I numeri vengono considerati con segno durante 
tutta l’elaborazione. 

Stack 



a b c 


>R 

a b 

c in TORS 

M» 

d e 

doppio numero prodotto 

R> 

dee 

c da TORS. TORS cancellato 

M/ 

t g 

f resto, g quoziente 


/MOO rimuove TOS e 20S. Li tratta come numeri singoli, divide 
20S per TOS e mette 11 resto, poi 11 quoziente, nello stack. 
Essenzialmente, e’ M/ adattato a lavorare su un numero singolo; 

3 LettenilmOTit* *'b«ndi 0 r«'\ é una variabila <a volta un singolo bit) usata par indicara una condiziona di varieté o di falsité asnimando, 
in ganma, i valori 0 o t. IN^.T.) 
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Stack 



a b 



>R 

a 

b in TORS 


S->D 

a c 

il segho esteso 
numero doppio 

a formare un 

R> 

a c d 

b ripreso da 
cancellato 

TORS. TORS 

M/ 

d e 

a/c diviso per 

b, reato d. 


quoziente e. 

Ora, finalmente, arriviamo al moltiplicatore semplice * . E' 
Implementato da M* DROP, la parte superiore del numero doppio 
viene scartata. Analogamente 11 divisore semplice / e’ 
implementato da /MODE SWAP DROP che scarta il resto. 

Per finire, arriviamo a »/ e MOD . Il primo e’ Implementato 
da »/MOD SWAP DROP , il resto viene scartato. Il secondo e' 
implementato da /MOD DROP , che rimuove 11 quoziente. 

Questi operatori sono stati esaminati in dettaglio perche’ le 
semplici definizioni, possono a volte sembrare ambigue e anche 
perche’ le definizioni dettagliate mostrano come possono essere 
costruite le parole FORTH , a mo’ di piramide, per eseguire 
azioni complesse. 

Dato che le definizioni compilate forniscono indirizzi 
associati espliciti per ogni funzione che chiamano, la funzione 
richiesta può’ essere trovata molto velocemente e anche una 
complessa struttura a piramide di molti strati può’ essere 
eseguita rapidamente, quantunque solo le ''primitive'', in 
effetti, svolgano il lavoro necessario. 

In questo paragrafo, abbiamo esaminato: 

AND Rimuove T0S,20S. Mette nello staK un AND a 16 

bit delle due parole. 

OR Come AND , ma e’ una funzione OR. 

XOR Come AND , ma e’ una funzione OR esclusivo. 

1+ Aggiunge 1 a TOS. 

2+ Aggiunge 2 a TOS. 

+- Rimuove TOS. Sa e’ negativo nega il nuovo TOS 

D+- Rimuove TOS, 20S. Se il TOS originale e’ 

negativo nega il nuovo T0S/20S. 

MIN Scarta il maggiore fra TOS e 20S. 

MAX Scarta il minore fra TOS e 20S. 

M/MOO Rimuove TOS, 20S, 30S. Divide 20S/30S 

(considerati senza segno) per TOS. Mette il 
resto, quindi il quoziente nello stacK come 
numero singolo con segho. 

ABS Da’ a TOS un segno positivo, se necessario, per 

negazione. 

DABS Da a T0S/20S un segno positivo, se necessario, 

per negazione. 

M/ Rimuove TOS, 20S, SOS. Divide 20S/30S 

(considerati con segno) per TOS. Mette il resto 
nello StacK come numero singolo col segno dal 
dividendo, qulhdi il quoziente con il segho 
appropriato a seconda dei segni di dividendo e 
divisore. 
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M» 

*/MOD 


/MOD 

* 

/ 

»/ 

MOD 


Rimuove TOS, 20S. Mette 11 loro prodotto nello 
etack come numero singolo con segno. 

Rimuove TOS, 20S, 30S. Moltipllca 20S per 30S 
ottenendo come prodotto un numero doppio che 
divide per TOS. Tutti 1 numeri sono con segno. 
Mette 11 resto, quindi 11 quoziente, hello 
stack come numeri con segno. 

Rimuove TOS, 20S. Divide 20S per TOS e mette 11 
resto nello stack con 11 segno del dividendo, 
quindi ,11 quoziente come numero singolo con 
segno. 

Rimuove TOS, 20S. LI tratta come numeri singoli 
con segno, mette 11 loro prodotto nello stack 
come singolo numero con segno. 

Rimuove TOS, 20S. Divide 20S per TOS e mette 11 
quoziente nello stacK come numero con segno. 
Rimuove TOS, 20S, SOS. Moltipllca 20S per SOS e 
divide 11 numero doppio risultante per TOS. 
Mette 11 quoziente nello stack. 

Rimuove TOS, 20S. Divide 20S per TOS e mette 11 
resto nello stack. 


ACCESSO ALL-A MEMORIA 


L'accesso alla memoria dipende da sette primitive che permettono 
l’accesso a bytes, parole e parole doppie. Se queste vengono 
usate normalmente, la loro azione dettagliata non e’ Importante, 
ma se vengono usate In modi particolari, la loro Implementazione 
può’ diventare significativa. Le primitive sono: 

C! Rimuove TOS, 20S. TOS definisce l’Indirizzo della 

locazione di un byte. Il byte basso di 20S viene 
posto In quella locazione. 

! Rimuove TOS, 20S. TOS definisce l’Indirizzo della 

prima di due locazioni di byte consecutive. Il 
byte basso di 20S viene messo nella prima 
locazione, 11 byte alto nella seconda. Queste 
locazioni non dipendono dalla macchina. 

21 Rimuove TOS, 20S, 30S. TOS definisce l’Indirizzo 

della prima di quattro locazioni di byte 

consecutive. Il byte basso di 20S e' messo nella 
prima locazione, 11 byte superiore nella seconda. 
Il byte basso di SOS e’ messo nella terza 
locazione, 11 byte superiore nella quarta. 

Queste locazioni non dipendono dalla macchina. 

C9 Rimuove TOS. TOS definisce l’Indirizzo della 

locazione di un byte, 11 contenuto della quale e’ 
messo nello stack. (Byte superiore a 0> 

9 Rimuove TOS, TOS definisce l’Indirizzo della 

prima di due locazioni di bytes consecutive. 
Viene formata una parola dal contenuto della 
prima locazione considerato come byte inferiore e 
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dal contenuto della seconda locazione considerato 
come byte superiore e tale parola viene messa 
nello stack. 

29 Rimuove TOS. TOS definisce l'indirizzo della 

prima di quattro successive locazioni di byte. 
Vengono messe nello stack due parole. Il byte 
inferiore della seconda parola viene dalla prima 
locazione, il byte superiore dalla seconda. Il 
byte inferiore della prima parola (che diventa 
20S) viene dalla terza locazione, il byte 

superiore dalla quarta. Queste locazioni non 
dipendono dalla macchina. 

+! Rimuove TOS, 20S. TOS definisce l’indirizzo della 

prima di due locazioni di byte. Conservando le 
convenzioni adottate per I e 9 , l contenuti di 
20S vengono sommati ai contenuti delle due 
locazioni. 

? non e’ una primitiva (* 9 . > ma può' essere 

convenientemente trattata qUi. Essa scrive il contenuto di una 
locazione definita da TOS. 

Questa parole possono essere Usate con indirizzi espi lei, ma 
e’ generalmente piu’ conveniente usare Un nome di variabile. 
Alcune variabili, come BASE, sono definite sin dall’Inizio. 
Altre saranno menzionate quando le incontreremo. 

Chiamando un nome di variabile, viene messo l’indirizzo 

associato nello stack, cosi’ n BASE I metterà’ il valore n nella 

variabile BASE, mentre BASE 9 metterà’ il contenuto di BASE 

nello stack. le nuove variabili vengono create cosi’: 

Y VARIABLE nome 

Questo definisce una locazione doppia a 16 bit, l’indirizzo 
della quale verrà’ messo nello stack in risposta al nome. Alla 
variabile e’ assegnato il valore iniziale di Y. Per esempio; 

10 VARIABLE PILA 

Definirà’ una variabile coh valore iniziale 10 (interpretato 
secondo il valore corrente di BASE) e la variabile può’ essere 
letta con PILA 9 o ridefinlta coh PILA I . 

Per variabili di numeri doppi, il formato e’; 

YY VARIABLE nome 

Vengono riservate quattro locazioni di byte e messe al numero 
doppio di YY. 

Non ci sono condizioni standard per definire variabili di 
byte, ma può’ essere definita un’estesa area di memoria usando 
ALLOT . Quando viene definita una nuova parola nel "dizionario*, 
l’inserimento necessario viene fatto riferendosi al puntatore 
DP. ALLOT muove in avanti il puntatore, estendendo lo spazio 
disponibile. Per esemplo: 

X VARIABLE nome 6 ALLOT 

definirà’ una variabile a due byte, con l’arrangiamento 
neceseario per creare l’accesso ad essa. Il puntatore del 
dizionario si muovera’ quindi avanti di sei locazioni, che sono 
dunque riservate per l’estensione dei dati nella variabile. 

Le locazioni non vengono cancellate. Qli otto bytec cosi’ 
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riservati potrebbero essere usati per un array di quattro parole 
cui si può’ accedere tramite: 
n nome SWAP DUP + + 

SWAP porta n a TOS, dove viene duplicato e il risultato viene 
sommato all’indirizzo definito da nome. Il risultato finale 
Sara’ l’indirizzo del byte inferiore dell’n-esimo elemento 
dell’array. Aggiungendo 9 verrà’ letto il contenuto 
dell’elemento. Sarebbe anche possibile usare lo spazio riservato 
per contenere otto bytes, dove l’indirizzo dell’n-eslmo byte 
sarebbe ottenuto da; 
n nome + 

Devono sempre essere usate le parole di lettura e scrittura 
corrette per le dimensioni di memoria scelte, questo e’ un 
esemplo di come la flessibilità’ del FORTH ponga delle esigenze 
all'utente. 

Possono essere anche definite delle costanti. Queste si 
comportano in modo piuttosto diverso dalle variabili, in quando 
chiamando una costante si pone nello stack il valore della 
costante, non il suo indirizzo. Siccome non c’e’ il problema di 
assegnare valori alle costanti, chi ha bisogno di sapere dove si 
trovano? Il formato delle definizioni per costanti a numeri 
singoli e doppi sono: 

X CONSTANT nome 
XX 2C0NSTANT nome 

Uno degli usi di una costante e’ definire un indirizzo al di 
fuori del FORTH. Il sistema operativo dello Spectrum definisce 
tre bytes chiamati FRAMES, che contengono il tempo (espresso in 
cinquantesimi di secondo) trascorso da quando il calcolatore e’ 
stato acceso, con la possibilità’ di essere messi a qualsiasi 
valore si desideri. I tre bytes possono essere letti in 
combinazione tramite: 

23672 9 23674 C9 

che definisce un numero doppio, 

Piuttosto che fare affidamento sulla memoria per gli 
indirizzi esatti, e’ possibile definire il primo indirizzo in 
una costante: 


23672 CONSTANT FRAMES 


Le locazioni possono allora essere lette con; 
FRAMES DUP 9 SWAP 2+ C9 
L’azione dello stack e’; 


FRAMES 23672 
DUP 23672 
9 23672 
SWAP (23672) 
2+ (23672) 
C9 (23672) 


23672 

(23672) Contenuto della locazione 23672 
23672 
23674 

(23674) Contenuto della locazione 23672 


Questo lascia un numero doppio nello stack che rappresenta il 
valore corrente della variabile FRAMES. Può’ essere visualizzato 
usando D. 
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Notate come gli Indirizzi spariscano non appena vengano 
utilizzati, lasciando sgombro 11 risultato richiesto. 

L’accesso al sistema operativo al di fuori del FORTH può’ 
fornite estensioni utili, ma e’ necessaria prudenza. Nel caso 
della variabile dello Spectrum FRAMES, per esemplo, possono 
essere letti valori non corretti. La variabile viene aggiornata 
ogni 20 mS, e dopo 20 minuti e 50,72 secondi 1 due bytes 
inferiori raggiungono 65535. Al prossimo Incremento, essi 
tornano a zero e il terzo byte viene incrementato; se questo 
avviene fra il momento in cui vengono letti i bytes inferiori e 
il momento in cui viene letto il byte superiore, ne risulterà’ 
un grosso errore. 

Questo può’ essere controllato chiamando ancora FRAMES2 
immediatamente, il risultato non dovrebbe differire dal 
precedente di piu’ di uno. 

Comunque, mentre vi tenete a mente questo, potreste trovare 
il modo di usare M/MOD e U/MOD per visualizzare il tempo 
trascorso in ore minuti e secondi. 

In aggiunta alle parole usate per accedere a particolari 
locazioni o gruppi di locazioni, ci sono parole usate per 
trattare aree piu’ ampie. 

FILL rimuove TOS, 20S e 30S. Iniziando dalla locazione 
definita da 30S, 20S bytes sono riempiti col codice definito nel 
byte inferiore di TOS. Per esemplo, se un blocco di memoria e’ 
stato definito con: 

0 VARIABLE ARRAY n ALLOT 

le locazioni nel blocco possono essere messe a zero da: 

ARRAY n 2+ 0 FILL 

ARRAY mette l’indirizzo di inizio in 30S, 20S e’ messo a n+2, 
il numero di bytes (inclusi 1 due definiti da VARIABLE), e 0 
definisce il codice da mettere in ogni locazione. 

ERASE e’ in effetti 0 FILL , consentendo a quanto sopra di 
diventare : 

ARRAY n 2+ ERASE 

Analogamente BLANKS e’, in realta’, 32 FILL e riempie l’area 
con il codice degli "spazi". 

CMOVE considera TOS come un contatore, 20S come un indirizzo 
destinazione e SOS come un indirizzo sorgente e copia il numero 
di bytes definiti da TOS dall’area dalla destinazione in su 
nell’area dalla sorgente in su. Non deve essere usato se la 
sorgente e la destinazione si sovrappongono, con la sorgente 
sotto la destinazione, polche’ la sorgente sarebbe modificata 
prima di essere copiata. 

TOGGLE può’ essere incluso in questo gruppo di parole. 
Rimuove TOS e 20S, usando 20S per definire la locazione di un 
byte. I contenuti della locazione subiscono un OR esclusivo 
(XOR) con il byte minore di TOS, cambiando lo stato di ogni bit 
che e’ vero in TOS. Creato originariamente per servire a una 
determinata funzione, TOGGLE può’ essere utile in altri 
contesti. 

Nello Spectrum, per esemplo: 

23697 2 TOGGLE 

cambierà’ il bit 1 di PFLAG e abiliterà’ o disabiliterà’ l’OVER. 



Riassumendo le parole che sono state trattate: 

C! Rimuove TOS, 20S. Mette il byte basso 

di 20S a TOS 

! Rimuove TOS, 20S. Mette 20S a TOS 

2! Rimuove TOS, 20S, 30S. Mette 20S/30S a 

TOS 

CO Rimuove TOS. Lo sostituisce con il 

contenuto della locazione del byte TOS 

0 Rimuove TOS. Lo sostituisce con il 

contenuto della locazione della parola 
TOS 

20 Rimuove TOS. Lo sostituisce con il 

contenuto della locazione della doppia 
parola TOS 

? Rimuove TOS. Scrive il contenuto della 

locazione della parola TOS, come numero 
singolo con segno. 

X VARIA8LE nome Iniziai izza una variabile a due byte 

contenente X, con l’indirizzo della 
locazione associato al nome 

XX 2VARIABLE nome Inizializza una variabile a quattro 

bytes contenente XX, con l’indirizzo 
della locazione associato al nome 

ALLOT Rimuove TOS. Riserva i prossimi TOS 

bytes nel dizionario 

X CONSTANT nome Inizializza una costante con valore X 

associato al nome 

XX 2C0NSTANT nome Inizializza una costante a due parole 

con valore XX associato al nome 

FILL Rimuove TOS, 20S, 30S. Mette il codice 

del byte inferiore di TOS in 20S 
locazioni che iniziano da 30S 

ERASE Rimuove TOS, 20S. Mette zero in TOS 

locazioni che iniziano da 20S 

BLANKS Rimuove TOS, 20S. Mette il codice dello 

spazio in TOS locazioni che iniziano da 
20S 

CMOVE Rimuove TOS, 20S, 30S. Copia TOS bytes 

dall’area da 30S in su nell’area da 20S 
in su 

TOGGLE Rimuove TOS, 20S. Modifica il valore 

contenuto nella locazione del byte 20S 
facendo un XOR col byte inferiore di 
TOS. 


FUNZIONI SRECIALI DELLO SRECTRUM 


In generale, il FORTH e’ indipendente dalla macchina su cui 
lavora. A parte variazioni nel vocabolario fondamentale, ci sono 
generalmente alcune caratteristiche speciali che dipendono dalla 
macchina. Le funzioni descritte qui sono particolari per il 
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FORTH Abersoft, che ha Inoltre un vocabolario generale piu* 
vasto di altre implefflentazlonl. 

Per cominciare, cl sono alcune funzioni di controllo dello 
schermo e opzioni grafiche, che sono molto slmili a quelle del 
BASIC Spectrum, tranne che 1 parametri precedono le Istruzioni 
anziché' seguirle. Per funzioni relative alla posizione del 
carattere, per esemplo, la linea e’ definita da 20S, la colonna 
da TOS. 

Y X AT stabilisca la posizione di stampa alla linea 

Y colonna X 

Y X ATTR mette nello stack 11 byte di attributi della 

linea Y colonna X 

Y X SCREEN mette nello stack 11 codice ASCII del 

carattere alla linea Y colonna X, tranne 

quando e* un carattere definibile dall’utente 
La definizione del colori e’ semplice: 

X INK dove X = 0 - 9 

X PAPER dove X = 0 - 9 

X BOROER dove X = 0 - 7 

I numeri hanno lo stesso significato che In BASIC. 

BRIGHI, FLASH, INVERSE e GOVER sono abilitati da un TOS 
non-zero e disabilitati da un TOS zero. Dunque 0 BRIGHI 

disabilita 11 BRIGHI mentre 1 BRIGHI lo abilita. GOVER e’ l’OVER 
in BASIC cui e’ stato modificato il nome per ovvie ragioni, 
avendo OVER in FORTH un significato proprio. Per la grafica ad 
alta risoluzione, 20S specifica la coordinata X e TOS la 

coordinata Y. Per esemplo, 20 100 PLOT equivale alla forma BASIC 

PLOT 20,100. 

DRAW, tuttavia, lavora su base assoluta, anziché' relativa, 
una linea viene disegnata in una posizione specifica, comunque 
sia andata prima. 

POINT ritorna 1 o 0 In TOS a seconda dello stato del punto 
specificato sullo schermo. 

Una caratteristica particolare delle Istruzioni della grafica 
a punti e’ che non appaiono messaggi di errore se si eccedono 1 
limiti dello schermo, ma 11 processo di plottlng continua con 
valori di coordinate limitati, e se permettete una escursione 
eccessiva potreste dover aspettare parecchio prima che la 
traccia riappaia. 

UDG mette nello stack l’indirizzo di Inizio dell’area dal 
caratteri definibili dall’utente. 

Per finire c’e’BLEEP, che e’ slgifIcatlvamente differente da 
BEEP. Il TOS definisce 11 tono e 20S la durata ma, mentre c’e’ 
una maggiore flessibilità’ di quello direttamente disponibile in 
BASIC, 11 sistema e’ piu’ difficile da usare. Sono necessari dei 
calcoli per ottenere la scala musicale, su questa base: 

Per generare una frequenza di F Hz, 11 TOS deve essere 
calcolato come segue: 

TOS»(437500/F)-30 

Guardando nell’altra direzione: 

Fa437500/(TOS+30) 

La durata della nota e’ determinata dal numero di cicli, 
cosi’ 20S deve essere F x T , dove T e’ la durata Ih secondi. 
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Va notato che se viene selezionata una frequenza molto bassa 
e una lunga durata, 11 sistema sembra rimanere sospeso, polche’ 
la routine BEEPER In BASIC funziona e funziona...; senza che 
l’utente possa usare BREAK. 

BREAK (CAPS SHIFT e SPACE) funzionerà’ in alcune circostanze, 
ma e’ prevista una alternativa da CAPS SHIFT a 1. Questo, 
tuttavia funzionerà’ solo ee avete scritto il programma 
prevedendone l’uso. Se non l’avete fatto, potreste accorgervi 
che il vostro programma e’ entrato in un loop infinito. 

Un altro punto degno di menzione e’ che può’ essere usata la 
ZX Printer col FORTH. Quésta viene accesa con 1 LINK e spenta 
con 0 LINK. 


RIASSUNTO DEL CARITOLO I 


Fino ad ora sono state definite piu’ di ottanta parole, ma ne 
devono ancora essere menzionate altre duecento. Tuttavia, molte 
di queste ultime sono parole "di sistema", che non avrete 
bisogno di usare direttamente. Prima di proseguire e’ bene 
acquisire famlgllarlta’ con le parole già’ definite, provando 
varie combinazioni di esse e osservando i risultati. 

Di tanto in tanto, potreste vedere un messaggio d’errore. Se 
tentate di leggere lo stack quando questo e’ vuoto, avete 
l’errore 1. Se usate una parola che non e’ nel dizionario, 
ottenete l’errore 0. Dopo ogni errore il sistema si cancella e 
diventa pronto per un nuovo inizio. Non dovreste incappare in 
altri errori a questo punto, a meno che non facciate qualcosa di 
piuttosto improbabile. 

Vi accorgerete che non c’e’ bisogno di inserire tutte le 
istruzioni insieme. I dati che inserite vanno nel buffer 
terminale di input. Quando premete ENTER o quando il buffer e’ 
pieno, la funzione INTERPRET e’ chiamata a interpretare do’ che 
avete detto. Per prima cosa proverà’ a confrontare un gruppo di 
caratteri delimitati da spazi con il nome di una parola del 

dizionario, e se do’ fallisce proverà’ a interpretare il gruppo 
come numero che sia valido rispetto alla base corrente. Se anche 
questo fallisce, visualizzerà’ l’errore 0. 

INTERPRET lavora su una parola per volta, cosi’, se premete 
ENTER dopo ogni parola o numero, il risultato sara’ lo stesso. A 
volte e’ preferibile una sequenza intera. 

Se volete cancellare lo schermo prima di una determinata 

azione, dovete mettere un CLS nella stringa di parole e numeri 
che chiamano quella azione. Non dimenticate che il sistema 
insiste nel 1’aggi ungere un *qk" in coda a ogni output che 

completa una stringa di azioni. Potete mettere 0 0 AT vicino al 
termine della stringa per mettere l’"ok" nell’angolo ih alto a 
destra dello schermo. 

Se volete sapere quello che sta’ accadendo nello stack senza 
perdere alcun dato, un trucco utile e’ usare: 

ROT DUP . ROT DUP . ROT DUP . 
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ciò' visualizzerà’ 30S, 20S, e TOS nell’ordine, ma lascera’ 
lo stack Inalterato. Dovreste essere in grado di capire perche’. 

Che cosa possiamo fare con le parole che abbiamo esaminato? 
Ben poco, potreste dire. Potremmo effettuare qualche funzione 
aritmetica complessa, ma tutto In forma Intera, e do’ può’ 
sembrare limitante. Con un po’ di pazienza scoprirete che questa 
non e’ necessariamente una limitazione seria. Un’occhiata alla 
routine DRAW listata nell’Appendice A vi dara’ un cenno delle 
possibilità* In tale direzione. I cambiamenti In X e Y sono 
calcolati In unita’ di 0,0000152, usando 11 principio della 
graduazione, che verrà’ esaminato in dettaglio in seguito. 

In termini di esplorazione delle possibilità’ del FORTH, 
abbiamo appena Iniziato. Come preludio a ulteriori progressi, 
dobbiamo vedere 11 modo di funzionamento del dizionario, e 11 
modo In cui possiamo cominciare a creare parole per conto 
nostro. 
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CARITOL.O II : 

IL DIZIOMARIO 


Questo capitolo descrive la struttura del dizionario e il modo 
in cui il FORTH usa il dizionario par rispondere alle 
istruzioni. Coloro che sono impazienti di procedere oltre 
possono saltalo per il momento, ma questo capitolo aiuterà’ a 
spiegare il meccanismo coinvolto nelle funzioni che saranno 
descritte. 


IL DIZIONARIO 


Il caricamento del nastro FORTH predispone un’area di memoria 
col Dizionario FORTH, che contiene tutte le parole essenziali al 
sistema. Durante 1’lnlzlallzzazlone vengono definite alcune 
variabili fuori dall’area del dizionario e vengono stabiliti gli 
stacks e 1 buffers, ma il dizionario rimane il cuore del 
sistema. 

Il nome 'dizionario'’ e’ preciso e appropriato, polche’ al 
riferisce a una lista di parole e alle loro definizioni. Quando 
inserite una parola FORTH, il sistema la ricerca nel dizionario 
ed esegue l’azione definita. Con almeno 260 parole da 
controllare, questo impiega del tempo, il che e’ accettabile 
tenendo conto che il processo di inserimento della parola ha 
richiesto piu’ tempo. E’ necessario un processo piu’ rapido per 
eseguire un programma. 

Le definizioni di alcune parole sono cosi’ complesse che 
costituiscono da sole dei piccoli programmi. La parola M/ chiama 
quindici altre parole e alcune di queste ne chiamano di altre. 
Per permettere che ciò’ sia eseguito velocemente, le definizioni 
sono messe nella forma di indirizzi associati alle definizioni 
delle altre parole, cosicché’ una semplice routine in codice 
macchina può’ saltare direttamente all’area richiesta. Polche’ 
non c’e’ bisogno di cercare parole oltre alla prima, il FORTH 
non perde tempo nel muoversi da un processo all’altro. Ecco 
perche’ e’ cosi’ veloce. 

Per far si che un tale sistema lavori affIcentemente, gli 
inserimenti nel dizionario devono essere fatti con cura. Ogni 
parola e’costltulta da otto ''campi* (flelds). 

Per primo c’e’ il Campo Nome (Name Fleld). Questo comincia 
con un byte detto byte lunghezza che - fra le altre cose - da’ 
il numero di lettere del nome che e’ stato definito. Siccome la 
lunghezza massima permessa e’ 31 lettere, questa può’ essere 
definita dal bit 0-4 del byte lunghezza. 

Il bit 5 del byte lunghezza e’ il bit "macchia* (smudge). 
Quando questo e’ vero, la parola non sara’ riconosciuta per 
valida anche se sara’ listata come presente, se viene chiamato 
VLIST per vedere il contenuto del dizionario. Il bit viene messo 
a uno durante la creazione di una nuova parola, e messo a zero 



quando la definizione e’ completa, cosi’ che definizioni 
Incomplete vengono marcate come non valide. 

Il bit 6 del byte lunghezza e’ vero quando Indica 
'precedenza*. Ciò’ significa che la parola sara’ sempre 
eseguita, anche durante la creazione e l’inserimento di una 
nuova parola nel dizionario, quando 11 sistema e’ detto essere 
nel modo 'compilazione* e considera tutte le altre parole che 
trova come facenti parte della nuova definizione. 

Il bit 7 del byte lunghezza e’ sempre vero. 

La parola stessa. In codice ASCII, completa 11 Campo Nome, 
con il bit 7 del codice dell’ultima lettera messo a uno per 
Indicare la fine della parola. 

Quando viene eseguita una ricerca nel dizionario, deve essere 
esaminata a turno ogni definizione. Per semplificare 
l’operazione, 11 campo nome e’ seguito Immediatamente dal Campo 
Associazione (Link Fleld) che contiene l’indirizzo della 
prossima definizione da esaminare. La ricerca comincia con la 
parola Inserita piu’ di recente, che si trova in cima al 
dizionario, e procede In giu’ per la memoria, controllando un 
campo nome e prelevando l’associazione se non viene riscontrata 
corrispondenza. Questo utilizza una variabile chiamata MERE, che 
e’ definita dal puntatore principale del dizionario. 

Il processo di associazione e’ illustrato in Flg. 1, dalla 
quale si può’ vedere che il numero di locazioni che devono 
essere scandite e’ mantenuto a un minimo assoluto. 

Quando viene trovata la parola ricniesta, entra In gioco il 
terzo campo. Questo e’ il Campo Codice (Code Fleld) e contiene 
un’associazione al codice macchina che deve essere eseguito per 
Implementare la funzione. Il codice In se’ può’ essere ovunque 
nel dizionario ma, quando copre l’esecuzione completa della 
funzione, segue generalmente il Campo Codice. In alcuni circoli, 
le parole che vengono eseguite Interamente In linguaggio 
macchina sono dette "primitive*, polche’ sono gli elementi di 
base che eseguono 11 lavoro effettivo, essendo chiamate nella 
sequenza richiesta da parole di livello piu’ alto. 

Molte parole, tuttavia, sono definite solamente tramite 
riferimenti ad altre parole e, per esse, il campo codice e’ 
associato a una routine che Interpreta 11 quarto campo, 11 Compo 
Parametri (Parameter Fleld). 

Il campo parametri contiene una serie di associazioni al 
Campi Codice di altre parole, alcune associazioni sono seguite 
dal dati necessari all’azione delle altre parole. Per esemplo, 
c’e’ una parola, LIT, che e’ un’abbreviazione di LITERAL. La sua 
funzione e’ quella di mettere 11 dato seguente del Campo 
Parametri allo stack. Analogamente, la parola .* e’ seguita nel 
campo parametri dal testo che deve essere visualizzato. In 
questo modo, il campo parametri, costituisce una completa 
definizione del programma per le parole che serve. 

Alcune delle parole FORTH piu’ misteriose, esistono 
principalmente per aiutare ad Interpretare 11 dizionario. 
TRAVERSE, per esemplo, muove 11 puntatore di scansione 
(conservato temporaneamente In 20S) dalla fine di Un campo nome 
ad un altra. Prendendo TOS e 20S dallo stack, somma TOS a 20S 
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FIG. 1 : FORMATO DEL DIZIONARIO MOSTRANTE IL SISTEMA DI SCANSIONE 
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ripetitivamente finche’ non viene trovato un byte col bit 7 
vero. Se TOS e' 1, TRAVERSE scandisce In avanti, se e’ -1, la 
scansione e’ verso 11 basso. Il valore risultante del puntatore 
e’ lasciato In TOS. 

TRAVERSE viene generalmente chiamato come parte di un 
processo. La parola NFA , per esemplo, converte 11 TOS 
al 11’Indirizzo di un campo parametri all’indirizzo del campo 
nome associato e ha la forma: 

5 - - 1 TRAVERSE 

Sottraendo cinque dall’indirizzo del campo parametri porta 11 
TOS Indietro, passando 11 campo codice e 11 campo associazione, 
ognuno del quali contiene due bytes, fino alla fine del campo 
nome. La combinazione -1 TRAVERSE, quindi, esegue una scansione 
all’lndletro fino all’inizio del campo nome. 

PFA esegue la conversione inversa, la sua forma e’: 

1 TRAVERSE 5 + 

Il campo nome e’ scandito fino alla fine, e quindi l’aggiunta 
di cinque porta 11 TOS all’Indirizzo del campo parametri. 

Aggiungere una parola al dizionario e’ semplice. Se Inserite; 
23672 CONSTANT FRAMES 
; FRAME FRAMES DUP 0 SWAP 2+ C@ ; 
scoprirete che avete creato una nuova costante chiamata FRAMES e 
una nuova parola, FRAME, che può’ essere usata per mettere 11 
contenuto delle variabili dello Spectrum, FRAMES, nello stack, 
come parola doppia. 

I due punti, chiamano 11 modo compilazione, cosi’ Invece di 
eseguire le parole che seguono, 11 sistema Inserisce una nuova 
parola nel dizionario col nome FRAME, definendo 11 campo 
parametri In modo che chiami DUP ® SWAP 2+ C@ In sequenza 
(vedere capitolo III per maggiori dettagli sulle definizioni 
tramite due punti), 

E’ ora possibile leggere la varablle chiamando la sola parola 
FRAME , invece di chiamare le singole parole di seguito. Se 
volete, e’ possibile usare la parola FRAME In un’ulteriore 
definizione, giacche’ questa si comporta esattamente allo stesso 
modo del resto delle parole del dizionario. 

II punto e virgola termina il processo, facendo ritornare 11 
sistema al modo esecuzione. 

Per trovare le corrette associazioni per 11 campo parametri 
delle nuove parole, e’ necessario ricercare attraverso 11 
dizionario le parole relative, cosi’ la compilazione e’ 
relativamente lenta, ma l’esecuzione della parola compilata 
Sara’ veloce. Una volta definita una parola, potete usarla per 
definirne altre, e troverete che cl sono diverse parole che 
possono essere usato solo nelle "definizioni tramite due punti". 

Un punto importante, concerne 11 bit "macchia" del byte 
lunghezza nel campo nome. Quando Inizia una definizione, 11 bit 
e’ a uno per Indicare una definizione non valida, e non e’ 
rimesso a zero finche’ la definizione non e’ completata. Se 
qualcosa va male, come scoprire una parola Inesistente nella 
definizione, il bit e’ lasciato a uno. 

La parola può’ allora essere trovata da VLIST , che lista le 
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parole nel dizionario, ma non viene riconosciuta. 

Incidentalmente, 11 bit "macchia" viene manipolato da SMUDQE, 
che e’ definito come LATEST 32 TOGGLE. LATEST lascia 
l’Indirizzo del campo nome creato piu’ di recente, e 32 (=20H> 
seleziona 11 bit 5 come quello che deve essere Invertito. 

Avendo definito FRAME, potreste volerla usare In altre 
definizioni : 

: MINSEC 50 M/MOD ROT DROP 60 U/MOD 0 60 U/MOD ... ; 

: CLOCK FRAME MINSEC ; 

Cominciando dalla seconda definizione, questa chiama FRAMES 
quindi MINSEC . 

FRAME mette 1 contenuti della variabile FRAMES nello stack 
come numero doppio, e MINSEC prima divide 11 numero per 50 per 
dare 11 numero di secondi dall’accensione. Il resto Indesiderato 
o’ scartato da ROT DROP e quindi 68 U/MOD separa 1 minuti e 1 
secondi. Polche’ questo produce un numero singolo come 
risultato, viene aggiunto 0 allo stack per generare un numero 
doppio e un ulteriore 60 U/MOD genera le ore e 1 minuti come 
numeri separati. Le tre cifre ottenute vengono visualizzate una 
dopo l’altra. 

Chiamando \1 a singola parola CLOCK verrà’ dunque visualizzato 
11 tempo trascorso da quando 11 calcolatore e’ stato acceso. In 
ore, minuti, e secondi. Se vi sentite ambiziosi potete tentare 
di definire una parola che Inlzlallzzl la variabile FRAMES 
nell’area BASIC per avere 11 tempo reale. 

Se questo esame del formato del dizionario ha solleticato la 
vostra cuerloslta’, potreste dare una scorsa al sommarlo del 
dizionario standard In Appendice A, che da’ le definizioni di 
tutte le parole standard. Scoprirete che una variabile viene 
Inserita allo stesso modo di una parola esecutiva, con una 
routine speciale per Interpretare 11 campo parametri, mentre una 
costante e’ anch’essa slmile nel formato ma anch’essa usa una 
routine speciale. 

Polche’ una variabile occupa almeno otto bytes dello spazio 
del dizionario, e’ comprensibile che l’approccio ideale sla di 
ridurre al mlnimlmo l’uso delle variabili. Tuttavia, con tanto 
spazio disponibile e’ permesso essere un poco stravaganti. 

Questa escursione nel meccanismo del FORTH non era un fattore 
essenziale per l’uso del linguaggio, ma dovrebbe aver dato 
un’utile visione di do’ che avviene all’Interno del sistema. 
Quando saranno state comprese tutte le parole disponibili, si 
vedrà’ che la precedente descrizione e’ stata molto 
semplificata. Invece di riferirsi a parole esistenti per formare 
altre parole, e’ possibile Inserire routlnes Ih codice macchina 
per svolgere determinati compiti. Il processo di compilazione 
può’ essere Interrotto per permettere al sistema di calcolare 
dati per ulteriori compilazioni, quindi la compilazione può’ 
essere ristabilita. 

Per ottenere 11 massimo dal sistema e’ meglio limitare 
l’ampiezza di ogni definizione creata piuttosto che cercare di 
stipare tutto in un’unica definizione. Cosi’ facendo, la 
validità’ di ogni nuova parola può’ essere controllata prima di 
procedere ulteriormente e, oltre tutto, può' essere evitata 
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confusione. 

Menzionare la possibilità’ di controllare le nuove parole ci 
porta naturalmente alla domahda su come possono venir corretti 
gli errori. Ciò’ verrà’ trattato in dettaglio in un capitolo 
successivo, per il momento e’ sufficente dire che e’ sempre 
possibile 'dimenticare* (FORGET) una parola definita. Se si 
tratta della parola definita piu’ di recente, questa sola sara' 
cancellata dal dizionario semplicemente mettendo 1 puntatori di 
inizio ricerca al campo nome della definizione precedente. Se 
in seguito sono state definite altre parole, tutte queste 
andranno perdute. In entrambi i casi, tuttavia, il dato 
rilevante rimane Inalterato. Questo e’ semplicemente ignorato 
dal processo di ricerca. Ciò’ pUo’ essere paragonato all'uso di 
OLD dopo NEW, in alcune versioni del BASIC, per riprendere un 
programma distrutto accidentalmente. 

Ci sono molti modi di usare il FORTH. Per cominciare, potete 
basarvi sulla costruzione di una piramide di definizioni del 
dizionario, senza usare trucchi fantasiosi. Aumentando la 
confidenza potrete essere indotti a esplorare tecniche piu’ 
complesse, e potrete eventualmente cominciare a vedere come 
possono essere modificate le parole inserite nel dlzioharlo per 
far fare loro do’ che volete. Se va vostra ambizione vi conduce 
su questo sentiero, procedete con cautela piuttosto che 
velocemente polche’ ci sono delle trappole per gli incauti, ma 
verrà’ fatto un tentativo per fornirvi tutte le informazioni di 
cui avrete bisogno. 

In questo capitolo abbiamo incontrato: 

1 TRAVERSE Converte il TOS dall’indirizzo di inizio del campo 
nome all’indirizzo di fine del campo nome. 

-1 TRAVERSE Converte il TOS dall’indirizzo di fine del campo 
nome all’indirizzo di inizio del campo nome. 

CFA Converte il TOS dall’indirizzo del campo parametri 

all’indirizzo del campo codice. 

LFA Converte il TOS dall’indirizzo del campo parametri 

all’indirizzo del campo concatenazione. 

PFA Converte il TOS dall’indirizzo del campo nome 

all’Indirizzo del campo parametri. 

NFA Converte il TOS dall’indirizzo del campo parametri 

all’indirizzo del campo nome. 

LATEST Mette il contenuto di CURRENT nello stack 

(Identificando l’indirizzo del campo nome 
dell’ultima parola inserita nel dizionario). 

SMUDGE Cambia lo stato della locazione definita da LATEST 

eseguendo un XOR del TOS (byte inferiore) con il 
contenuto di quella locazione. 

TOGGLE Cambia il contenuto della locazione definita 

dall’indirizzo in 20S facendo l’XOR col byte basso 
di TOS. 

FORGET Cambia il contenuto di CURRENT per puntare al 

campo nome della parola del dizionario 
identificata dal campo concatenazione della parola 
che segue FORGET. 
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CAPITOLO III 

Dei-f 1 r« 1 z 1 o n 1 -tiraml-te cJUe pun-tl 


Questo capitolo spiega come possono essere create nuove parole 
usando le 'definizioni tramite due punti*, e introduce parole 
Inerenti i processi di comparazione (branching) e ricorsivita’ 
(looping). Se l’uso del FORTH fosse limitato solo all’esecuzione 
di parole inserite via tastiera, sarebbe davvero un linguaggio 
molto limitato, ma l’intero concetto si basano sulla 
possibilità’ di introdurre nuove parole nel dizionario 
principale o in un dizionario sussidiarlo creato per scopi 
particolari. Una volta che sia stato fatto un nuovo inserimento, 
questo può’ essere utilizzato per aiutare a definire ulteriori 
parole, finche’ un intero programma può’ essere definito in 
termini di una sola parola. 

Nella compilazione di nuove definizioni, ci sono un certo 
numero di parole che sono inaccettabili per l’esecuzione 
diretta, e queste saranno esaminate a tempo debito. Prima, 
tuttavia, alcuni esempi dell’uso di definizioni create 
aiuteranno a mostrare le possibilità’ del sistema. 


estendere: il dizionario 


Nel paragrafo sull’accesso alla memoria, dicevamo che 
l’inserimento di una variabile poteva essere esteso dall’uso di 
ALLOT per riservare un’area che potrebbe contenere un’array. 
L’accesso ad un determinato elemento dell’array richiede una 
corta routine che trova l’indirizzo dell’elemento: 

n nome SWAP DUP + + 

Siccome n, il numero dell’elemento richiesto e il nome, il 
nome dell’array sono fattori variabili possiamo definire 
utilmente : 

: ACALC SWAP DUP + + ; 

Possiamo ora ottenere l’indirizzo richiesto inserendo il piu’ 
breve : 

n nome ACALC 

Questo avra’ lo stesso effetto della sequenza definita prima. 
Possiamo ora fare un passo avanti e definire: 

: A! ACALC ! ; 

: A9 ACALC 0 ; 

Avendo definito ACALC possiamo ora usarlo per definire due 
parole che scrivono e leggono dall’indirizzo dell’elemento 
dell’array. Ciò' condensa ulteriormente il codice richiesto. 
Sarebbe stato possibile definire A! e A9 direttamente, senza 
prima definire ACALC, ma qui stiamo trattando i principi 
piuttosto che la pratica, e l’itinerario seguito dimostra il 
principio molto chiaramente. 
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In un programma trattato piu’ avanti, richiederemo un array a 
tre elementi chiamato PILE che sara’ definito da: 

0 VARIABLE PILE 4 ALLOT 

Possiamo quindi accedere all’elemento n dell’array con: 

n PILE A@ 

o scrivere In esso con: 

n PILE A! 

Dobbiamo stare attenti a non porre n maggiore di 2, 
altrimenti usciremmo dall’area riservata. Gli Indici dell’array, 
dovrebbe essere stato notato, vanno da 0 a 2 e non da 1 a 3 come 
nel BASIC Spactrum. Se chiamassimo 3 PILE Al scriveremmo nel 
campo nome della successiva parola del dizionario. 

Gli array multldimenslonal1 sono piu’ difficili da 
maneggiare. La regola usuale per calcolare un elemento di numero 
n dati gli Indici e le dimensioni e’ basato sulla applicazione 
1terativa di : 

Ox=nx-t *dlmenslonex+lndlcex 

Inizialmente, no=0, cosi’ ni=indlce 

Quindi n 2 =*indlcei ♦dlmenslone 2 + lndlcei 

Questo processo e’ ripetuto a turno per ogni Indice. 

Per un array a tre elementi, la sequenza FORTH sarebbe: 

13 12 II D2 ♦ + D3 * + ; 

Ciò’ metterebbe nello stack 11 numero dell’elemento. Potremmo 
quindi definire: 

: ELEMENT D2 » + D3 * + ; 

Potremmo ora leggere dagli elementi definiti dagli indici SI, 
S2, S3 chiamando: 

S3 S2 SI ELEMENT ARRAY A@ 

Dove ARRAY e’ il nome dato all’array. 

In questi esempi piuttosto semplici, noterete che ogni 
definizione Inizia con due punti, per ordinare al sistema di 
creare una nuova parola da inserire nel dizionario nel modo 
compilazione e termina con punto e virgola per ordinare 11 
ritorno al modo esecuzione. 

La parola che segue 1 due punti e’ considerata il nome della 
nuova parola e le parole che seguono sono poste nel campo 
parametri in termini del loro indirizzi al campo codice. Notate 
che due punti e punto e virgola non sono necessari quando si 
definiscono variabili e costanti. 

E’ necessario che paventiate la possibilità’ di riempire lo 
spazio disponibile creando troppe definizioni. Potete sempre 
usare FREE per controllare quanto spazio vi rimane, e vi 
accorgerete che questo si restringe piuttosto lentamente. Se 
volete calcolare quanti bytes occupa una nuova definizione, 
sommate: 

. 11 numero di lettere del nome della nuova parola piu’ 1. 

. Due bytes per 11 campo associazione. 

. Due bytes per 11 campo codice. 

. Due bytes per ogni parola usata. Incluso 11 punto e 
virgola ma esclusi 1 due punti. 

. Quattro bytes per ogni valore numerico. 

. Quattro bytes per una comparazione o rlcorslone (vedi 
paragrafo seguente). 
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La parola ELEMENT , definita piu’ sopra, richiede 32 bytes. 

Dovreste ora essere In grado di poter sperimentare la 
costruzione di alcuni semplici gruppi di parole. Quando create 
una nuova parola, annotate come questa modifichi lo stack. ACALC 
rimuove n e un Indirizzo, lasciando al loro posto un Indirizzo. 
A! rimuove n, l’Indirizzo e un numero singolo, mentre A@ rimuove 
n e l’Indirizzo e lascia un nuovo numero singolo. ELEMENT 
rimuove tre Indici e lascia n. 

Se annotate questi cambiamenti, vi accorgerete che e’ facile 
seguire tutte le modifiche dello stack, visto che non c’e’ 
bisogno di passare tutte le definizioni parola per parola per 
vedere quello che accade. 

Per 11 momento, sarete ostacolati dal fatto che le vostre 
definizioni, subendo uno scroll, escono rapidamente dallo 
schermo e vengono perse, ma un rimedio a do’ verrà’ spiegato 
nel capitolo IV, dove viene descritto 11 sistema del disco RAM, 
che e’ un sistema di Immagazzinamento nel quale potrete salvare 
le vostre definizioni e riprenderle ogniqualvolta vi sorga un 
dubbio o vogliate correggerle. 


DIRAMAZIONI E RICORSIVITA’ 


Esponenti della programmazione strutturata, considerano 
meri tori tavole 11 fatto che 11 llnguaglo FORTH non offra una 
funzione paragonabile alla parola BASIC GOTO, che considerano 
Insana. Infatti, sarebbe molto difficile introdurre direttamente 
una tale parola, visto che non cl sarebbe modo di definire la 
destinazione. All’interno del dizionario, tuttavia, la maggior 
parte delle funzioni di diramazione (branchlng) e di rlcorslone 
(looping) sono implementate tramite salti relativi, che sono 
parenti stretti di GOTO. 

Le funzioni di salto sono: 

BRANCH XXXX ,che trasferisce l’azione ad un Indirizzo 
associato aggiungendo XXXX al puntatore Interpretativo. 

0BRANCH XXXX , che agisce allo stesso modo, ma solo se TOS 
e’ zero, altrimenti non ha effetto. 

Siccome XXXX e’ una parola a 16 bit, sarebbe teoricamente 
possibile altare ad ogni altro punto del dizionario, ma 11 
raggio d’azione dei salti effettivamente usati, e’ relativamente 
piccolo. 

BRANCH , da solo, e’ di uso limitato, ed e’ generalmente 
usato per definire un’azione alternativa In associazione a 
0BRANCH. Per poter apprezzare l’azione di 0BRANCH , dobbiamo 
considerare alcuni del modi particolari in cui deve essere 
definito 11 TOS per determinare se 0BRANCH agisce o no. 

Per prima cosa cl sono 1 calcoli aritmetici semplici. Se 
mettono a zero 11 TOS quando viene chiamato 0BRANCH , questo 
altrimenti non fara’ niente. In entabl 1 casi 11 TOS 
’rra’ ridosso. 
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Poi vengono gli operatori logici, che non sono molto diversi: 

= Mette una condizione non-zero ih TOS se 

T0S=20S, altrimenti lo mette a zero. 

< Mette una condizione non-zero in TOS se 20S 

e’ minore di TOS, altrimenti zero. 

> Mette una condizione non zero nel TOS se 20S 

e’ maggiore di TOS, altrimenti zero. 

U< Come < , ma considerando senza segno i 

numeri. 

Ognuno di questi operatori rimuove TOS e 20S, e viene perso 
quando agisce 0BRANCH . E’ uso riferirsi alla condizione messa 
in TOS dall’operatore come ad un flag‘ vero (non-zero) o ad un 
flag falso (zero). 

Poi ci sono gli operatori che agiscono su un solo valore 
piuttosto che basarsi su un confronto fra TOS e 20S: 

0< Mette una condizione noh-zero in TOS se il 

TOS e’ negativo, altrimenti zero. 

0= Mette una condizione non-zero in TOS se il 

TOS e’ zero, altrimenti zero. 

Entrambi questi operatori rimuovono il TOS originale. 
L’operatore 0= in effetti Inverte lo stato del flag in TOS e 
viene anche chiamato NOT Può’ essere usato dopo altri 
operatori per invertire il loro senso. Un certo numero di 
altre funzioni lasciano flags. Per esemplo 7TERMINAL mette 
una condizione non-zero nello stack se viene chiamata da 
tastiera la combinazione BREAK (CAPS SHIFT e SPACE o CAPS 
SHIFT E 1). Di tanto in tanto incontreremo altri esempi. 


DIRAMAZIONI CONDIZIONATE 


Un tipo di diramazione familiare e ingannevole consiste in: 

IF...ELSE...ENDIF 

ma la sua azione può’ apparire meno familiare. Essa ricorre 
nella forma: 

condizione IF azione! ELSE azlone2 ENDIF azloneS. 

Se la condizione (in TOS) e’ vera, vengono eseguite le azioni 
1 e 3, se la condizione e’ falsa, vengono eseguite le azioni 2 e 
3. Il flag condizione e’ rimosso dallo stack, ed e’ a vòlte 
conveniente crearlo con -DUP che duplica il TOS solo se non e’ 
zero. Il TOS originale sarebbe quindi disponibile per l’azione 1 
ma sarebbe scartato se fosse eseguita l’azione 2. 

L’implementazione nel dizionario dovrebbe essere lineare. IF 
e’ sostitutulto da 0BRANCH che esegue un salto all’azione 2 se 
la condizione e’ zero. Altrimenti, un BRANCH al termine 
dell’istruzione 1 esegue un salto all’azione 3. 

La compilazione di IF.. .ELSE...ENDIF viene confrontata con un 
numero di riferimento che e’ controllato da 7PAIR . IF definisce 
il numero 2 e ELSE richiede 2 per essere definito. Anche ELSE 
definisce il numero 2 e ENDIF richiede 2 per essere definito. E’ 
anche possibile omettere ELSE e l’azione 2 se e’ richiesta solo 
l’azione condizionale. 
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Se vi sembra piu’ espressivo, potete sostituire ENDIF con 
THEN; hanno esattamente lo stesso significato. 

Il ciclo "DO* del FORTH e’ simile al ciclo "FOR* del BASIC, 
essendo la forma equivalente; 

FOR N = A TO B ... NEXT = B + 1 A DO ... LOOP 

FOR N = A TO B STEP C . . . NEXT = B + 1 A DO . . . C + LOOP 

Notate che 11 parametro limite e’ B+1 e non B. Mentre 
l’indice di Iterazione e’ minore del limite, LOOP rimanda 
1'azione ad un punto Immediatamente successivo a DO , ma quando 
l’indice e’ uguale al limite, vengono eseguite le parole che 
seguono LOOP. Il Return Stack contiene 1 dati necessari. 

DO viene compilato come (DO). Quando viene eseguito (DO), 
11 TORS viene trasferito a TORS (11 valore Iniziale dell’Indice 
A) e 20S a 20RS (11 valore limite B+1). 

LOOP viene compilato come (LOOP). Quando (LOOP) viene 
eseguito, il TORS viene Incrementato e il risultato viene 
comparato con 20RS per vedere se 11 valore limite e’ stato 
raggiunto. Se non e’ cosi', la routine salta ad un punto 
Immediatamente successivo a (DO) , l’ampiezza del salto e’ 
calcolata nel momento In cui viene compilata la sequeza e posto 
nella parola successiva a (LOOP) nel campo parametri. 

+LOOP viene compilato come (+LOOP) ,che agisce allo stesso 
modo di (LOOP) tranne che C (memorizzato nel campo parametri 
come una "letterale", un numero da mettere nel TOS) viene 
sommato all’Indice invece dell’unita’. 

All’Interno di un ciclo DO, l’Indice di Iterazione e’ 
normalmente in TOS ,a mono che non sla stato coperto da >R , nel 
qual caso il dato che lo copre deve essere rimosso da R> prima 
che venga raggiunto (LOOP). Anche la parola R metterà’ TORS In 
TOS, senza disturbare 11 contatore. Per alcune Inspiegablll 
ragioni, viene comunemente usato un sinonimo di R : I . Le due 
parola agiscono esattamente allo stesso modo, usando anche lo 
stesso codice macchina. Usando I , Il valore corrente 
dell’Indice può’ essere usato In calcoli all’Interno del ciclo. 

Il valore di 20RS può’ essere copiato in TOS da I’ ,dando 11 
valore limite dell’Indice; questi possono tornare utili quando 
11 valore richiesto e’ (limite-indice). A volte e’ necessario 
usare 11 contatore d’iterazione di un ciclo DO piu’ esterno, 
quando si abbiano due cicli nidlatl . Per do’, e’ richiesto 
30RS, che può’ essere copiato In TOS dalla parola J . 

Riguardo a do’, c’e’ un sottile tranello. Se 11 valore del 
Return Stack viene letto all’interno di una definizione chiamata 
In un ciclo DO , viene aggiunta una associazione di ritorno al 
Return Stack durante l’esecuzione della definizione ed e’ 
necessario scavare un po’ piu’ a fondo, usando I’ anziché’ I e J 
Invece di I’. Per esempio: 

■ CALC2 I ’ 

! CALCI 10 Ó DO CALC2 LOOP ; 

Ora CALCI stamperà’ 1 numeri da 0 a 9. 

Cosi’, 11 listato di CALCI dopo la definizione sara’: 

: CALCI 10 0 DO I . LOOP ; 
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L’associazione di ritorno mostra dove deve essere ripresa 
l’esecuzione nella sequenza di chiamate nella tabella del_ 
paramtrl. 

In BASIC, e’ permesso a volte uscire da un ciclo FOR NEXT, a 
volte Invece e’ imprudente. Per uscire da un ciclo DO 

prematuramente, viene usata la parola LEAVE Questa parola 
mette l’indice uguale al valore del limite, terminando il ciclo 
al successivo LOOP. LEAVE viene comunemente usato nel formato: 
condizione IF LEAVE ENDIF 

Meno familiari agli utenti delle vecchie versioni del BASIC, 
ma implementate in alcune delle versioni piu’ recenti, sono le 
restanti forme di cicli: 

BEGIN azione UNTIL 

ripete l’azione finche’ questa non mette la condizione di 
verità’ nello stack. Un modo comune per permettere l’uscita 
manuale dal ciclo e’: 

BEGIN azione 7TERMINAL UNTIL 

Premendo CAPS SHIFT e 1, 7TERMINAL metterà’ una condizione di 
verità’ in TOS, cosi’ il ciclo verrà’ interrotto. 

Se non ci sono condizioni prima di UNTIL , il ciclo può’ 
continuare per sempre. 

Notate che UNTILL rimuove il TOS essendo implementato da 0BRANCH 
che riporta l’azione a subito dopo BEGIN se trova che il TOS e’ 
0. Potete usare END al posto di UNTIL se lo desiderate; hanno lo 
stesso significato. Questo e’ un altro esemplo di sinonimi in 
FORTH, parole differenti che significano la stessa cosa e 
vengono eseguite dallo stesso codice macchina. 

Una struttura piu’ complessa e’ fornita da : 

BEGIN azlonel WHILE azlone2 REPEAT azioneS 

WHILE rimuove il TOS. Se TOS=0 , azlonel e’ seguita da 
azloneS. Atrimenti vengono eseguite azlonel e azlone2 alternate. 

Il formato BEGIN azione AGAIN deve essere usato con cautela 
poiché’ non v’e’ modo di uscire dal ciclo se non chiamando QUIT, 
ABORT o EXIT, eseguite in modo condizionale con l’azione. Avete 
usato QUIT fin dall’inizio polche’ questa e’ la routine che 
accetta inputs dall’utente. Essa cancella il Return Stack mentre 
ABORT cancella entrambi gli stacks, ed e’ piu’ drastico. EXIT 
rimuove il TORS, distruggendo l’associazione che sarebbe 
altrimenti usata per dirigere ulteriori azioni. Quello che 
succede poi dipende da cosa emerge come nuovo TORS. All’interno 
di un ciclo LOOP, potrebbe trattarsi del contatore del ciclo, e 
do’ causerebbe mutilazioni. Sperimentate con EXIT cautamente, 
anche se nella peggiore delle ipotesi, dovrete ricaricare il 
nastro FORTH e iniziare di nuovo... 

Per finire, c’e’ la struttura CASE , un’aggiunta speciale 
al flg-FORTH che viene omessa in alcune implementazioni. Il 
formato e’: 

condizione CASE 

A OF azlonel ENDOF 
B OF azlone2 ENDOF 
C OF azioneB ENDOF 
ecc. 

ENDCASE 
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Se A corrisponde alla condl 2 lone data, viene eseguita 
l’azione 1. Se 6 corrisponde alla condizione data, viene 
eseguita l'azione 2, e cosi' via. La condizione deve essere 
nella forma di un numero singolo <o un suo equivalente, ad 
esempio un codice ASCII). A, B e C possono essere parole o 
sequenza di parole che producono un risultato slmile. Ne vedremo 
un esemplo verso la fine del programma dato nell’Ultimo capitolo 
di questo libro. 


stringhe: e: simili 


Fino ad ora, abbiamo parlato soltanto di numeri, dicendo poco o 
nulla dei testi. E’ ora di rimediare a questa deflcenza. 

La parola .* compila una parola nel dizionario che contiene 
il testo che segue. Per esemplo; 

: ABC .* Programma numero 1 " ; 

definisce una parola nel dizionario che scrive il testo quando 
viene chiamata la parola ABC. Notate che ci deve essere uno 
spazio fra .* e l’inizio del testo e che il testo e’ completato 
da ulteriori ''virgolette''. 

La stessa definizione può’ includere numeri e altre parole, 
permettendo definizioni del tipo: 

: BCD 10 6 AT .* Programma No 2 * ; 

che posizionerà’ il testo sullo schermo alla linea 10, 
colonna 6. 

Notata che la parola ." viene sostituita dall’associazione 
alla parola compilata <.’’) e segue un carattere di conteggio. 
L’output effettivo e’ eseguito da TYPE ,che visualizza TOS 
caratteri presi da un area di memoria con inizio a 20S (TOS e 
20S vengono rimossi). Il carattere di conteggio e’ definito da 
WORD che che stabilisce il numero di caratteri e che inserisce 
il numero, con il testo, nel dizionario. In genere non c’e’ 
bisogno di preoccuparsi di queste funzioni insite nel sistema. 

Il FORTH non ha , come caratteristica di base, alcuna 
possibilità’ per la manipolazione delle stringhe. Se volete 
qualcosa del genere, dovete costrulrvelo per conto vostro. La 
procedura dovrebbe essere in grado di individuare la stringa 
sulla quale volete operare, identificare la parte della stringa 
che vi interessa ed estrarre questa parte, o per l’uso 
immediato, o per formare una nuova parola. Un esemplo 
illustrerà’ meglio il metodo. 

Definiamo una stringa di base; 

; DATE ,* GenFebMarAprMagGluLugAgoSetOttNovDlc * ; 

La sequenza -FIND DATE metterà’ il TOS a 1 ad indicare che la 
parola DATE e’ stata trovata, 20S conterrà’ la lunghezza in 
bytes della parola e SOS conterrà’ l’indirizzo del campo 
parametri della parola. Tutto ciò'che ci serve sono gli 
indirizzi ; 

-FINO DATE DROP DROP 3 + CONSTANT POINTER 

Questo definirà’ una costante che punta all’indirizzo piu’ 3, 
che e’ l’inizio del testo memorizzato. Abbiamo saltato i due 
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bytes che definiscono .* e il byte lunghezza. Notate che questa 
e* una sequenza da eseguirsi immediatamente, non e' una 
definizione tramite due punti. 

Per prelevare l’n-esimo mese, dobbiamo calcolare 3*<n-l> e 
aggiungerlo alla costante POINTER ottenendo il primo carattere 
del nome del mese. L’indirizzo e’ messo nella variabile OUT ; 

: DATEADD 1 - 3 * POINTER + OUT ! ; 

Per ottenere l'Inizio dell’n-eslmo mese, dobbiamo fare 
n DATEADD , cosi’ possiamo costruire: 

: OUTDATE DATEADD 3 0 DO OUT @ ® EMIT LOOP ; 

I contenuti di OUT vengono Incrememtati da EMIT , che emette 
i caratteri messi in TOS da OUT @ @ . Il nome intero del mese 
può’ essere ora scritto da n OUTDATE . 

La proceduta descritta piu’ sopra può’ sembrare piuttosto 
complicata all’inizio, ma ha il vantaggio di essere estremamente 
flessibile. 

II FORTH prevede anche alcune possibilità’ di formattamento 
del numeri in scrittura . Le parole coinvolte sono: 

<# Mette in HLD l’indirizzo del buffer per l’output 

del testo, come contenuto in PAD. Tale buffer non 
ha un indirizzo fisso ma fluttua 68 bytes sopra la 
cima del dizionario. 

# Opera su un numero doppio in T0S/20S, generando la 

cifra meno significativa della sua 

rappresentazione nella base numerica corrente, e 
lasciando il residuo in T0S/20S come numero 
doppio. La cifra e’ memorizzata in PAD, viene 
usato HLD come puntatore in decremento. 

#S Ripete # finche’ il numero doppio viene ridotto a 

zero. 

SIGN Usato fra <# e #> , inserisce un segno meno 

davanti ad una stringa numerica convertita se 30S 
e’ negativo. 30S viene scartato ma T0S/20S 
rimangono 1ndlstrubatl. Essi conterranno 

normalmente il numero doppio sul quale si e’ 

operato. 

#> Completa la formazione di una stringa numerica 

scartando il numero doppio e lasciando gli 
indirizzi della sua locazione e un byte lunghezza. 
Generalmente e’ seguito da TYPE. 

TYPE Emette TOS caratteri presi dalla memoria, partendo 
da 20S. 

Queste parole permettono di stabilire un formato rigido. Dal 
momento che #S terminerà’ l’output quando il doppio numero 

raggiunge zero, può’ essere definito un modello usando # che 
inserirà’ gli zero superflui. C’e’ un’altra parola: 

HOLD Decrementa HLD e memorizza TOS nella stringa 
numerica come carattere in codice ASCII. Per esemplo, 46 HOLD 
inserirà’ un punto decimale. 

Sperimentando, potrete capire meglio le piene possibilità’ di 
queste parole. Notata che viene usato un puntatore in decremento 

per porre le stringhe nel buffer, dal momento che TYPE usa un 

puntatore in incremento. La cifra meno significativa viene 
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generata per prima ma mostrata per ultima. 

Il processo può’ usare un ciclo DO per chiamare # DPL volte 
prima che venga inserito il punto decimale, DPL contiene la 
posizione del punto decimale. SIGN viene per ultimo cosi’ che il 
risultato viene visualizzato o stampato prima. 

Conviene menzionare qui alcune delle altre parole relative 
alle stringhe e all’output del testi. 

COUNT , usato con il TOS che punta al byte lunghezza di un 

testo in memoria, mette l’effettivo byte lunghezza in TOS e 

l’indirizzo d’inizio del testo che segue in 20S. Può’ quindi 
essere usato TYPE per emettere il testo. 

.CPU visualizza il nome del computer, nel caso vi siate 
dimenticati quale macchina state usando ... 

-TRAILING modifica il byte lunghezza della stringa di un 
testo numerico per rimuovere gli spazi superflui. Richiede il 
byte lunghezza originale in TOS e l’indirizzo dell’inizio del 
testo in 20S. Lascia la stessa situazione con il byte lunghezza 

aggiustato. Può’ essere dunque interposto fra COUNT e TYPE , o 

può’ precedere TYPE quando e’ usato per emettere una stringa 
formattata. 

.ID considera il TOS come l’indirizzo di un campo nome ed 
emette il nome della relativa definizione. 

Le funzioni puramente dedicate alle stringhe in FORTH non 
sono troppo estese, essendo questo visto principalmente come 
linguaggio per il calcolo, ma può’ essere fatto perecchlo con le 
opzioni fornite, pensandoci un po’. 


IISIRUT/OUTPUT 

L’input di dati per l’esecuzione Immediata o per le definizioni 
tramite due punti e’ cosi’ semplice che tende ad essere dato per 
scontato, ma viene fatto parecchio lavoro, immediatamente, per 
ottenere tale semplicità’. 

Viene usata la routine QUIT per tali inputs, poiché’ agisce 
ogniqualvolta vengono completate altre azioni e deve essere 
restituito il controllo all’utente. Questa chiama QUERY che 
mette nello stack l’indirizzo del buffer terminale di input, e 
quindi il numero 80H che e’I’ampiezza del buffer in bytes. Viene 
quindi chiamato EXPECT per trasferire i caratteri dalla tastiera 
al buffer di input terminala finche’ viene premuto Return o sono 
stati inseriti ottanta caratteri. Quindi QUERY azzera il 
puntatore IN , cosi’ che’ i dati che sono stati inseriti possano 
essere scanditi. 

Questi dati sono nella forma di codici ASCII, e devono essere 
interpretati. Ogni gruppo di caratteri che inizia e termina con 
uno spazio può’ essere una parola FORTH, e viene eseguita una 
ricerca nel dizionario per controllare questa possibilità’. Se 
la ricerca e’ negativa, il gruppo di caratteri può’ essere un 
numero: viene chiamata NUMBER per controllare. NUMBER richiede 
l’indirizzo di un puntatore in TOS e controlla che sia un numero 
valido a seconda del valore corrente di BASE, cercando anche il 
punto decimale. Se quest’ultimo viene trovato, DPL contiene il 
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numero di cifre che seguono, altrimenti contiene -1. Se 11 
numero non e’ valido si ha un errore. 

Se DPL e’ positivo, INTERRUPT mette un numero doppio nello 
stack, altrimenti mette un numero singolo. Se 11 gruppo di 
codici non viene identificato ne’ come parola ne’ come numero, 
INTERPRET riporta un errore. 

Un punto Interessante e’ che la parola potenziale viene 
inserita nel dizionario sia che sia valida o meno, ma il 
puntatore del dizionario non viene avanzato finche’ la parola 
non e’ stata controllata, cosi’ le parole senza senso non hanno 
un’esistenza reale e possono essere in seguito sovrascritte. 

Se viene riconosciuta una parola nel modo diretto, questa 
viene eseguita, mentre i numeri vengono messi nello stack, viene 
cosi’ mantenuta una continuità’ d’azione, anche se l’inserimento 
del testo avviene in piccole sezioni. Nel modo compilazione, la 
compilazione avviene in modo slmile. 

Una situazione piuttosto diversa si ha durante l’esecuzione 
di parole compilate. La tastiera viene ignorata a meno che non 
venga specificamente richiesto un input. Ciò’ può’ essere fatto 
tramite : 

KEY Mette il codice ASCII del tasto premuto in 
TOS. 

INKEY Come KEY ma se non viene premuto alcun tasto 
mette FFH in TOS. 

La differenza e’ che KEY aspetta che si prema un tasto, 
mentre INKEY no. 

Conviene usare queste parole per controlli semplici, per 
rispondere S o N, o per interrompere l’azione finche’ non siete 
pronti. E’ possibile tradurre il codice ASCII in un valore 
numerico usando DIGIT , che richiede BASE in TOS e il carattere 
in 20S: 

KEY BASE @ DIGIT 

Questo metterà’ nello stack il valore numerico, quindi un 
flag vero se il codice e’ un numero valido oppure metterà’ nello 
stack un flag falso se il codice non e’ valido. Comunque il 
numero non verrà’ visualizzato se non espandete la sequenza 
cosi : 


KEY DUP EMIT BASE @ DIGIT 

Sarebbe possibile estendere ulteriormente la sequenza in modo 
che accetti e combini un certo numero di cifre per formare un 
numero completo, ma la e’ piu’ conveniente usare la combinazione 
QUERY INTERPRET. 

L’output del dati sul display e’ stato adeguatamente trattato 
altrove, e l’uso di 1 LINK per accendere la stampante e di 
0 LINK per spegnerla e’ già’ stato menzionato. Le funzioni 
input/output che restano riguardano le porte: 

INP Rimuove il TOS a lo considera il numero della 

porta, e mette il TOS al valore del byte 
letto dalla porta. 

OUTP Rimuove il TOS e lo considera il numero della 

porta, rimuove 20S e lo considera come dato. 
Il dato viene emesso dalla porta specificata. 

E’ necessaria una certa prudenza nel selezionare le porte. 
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poiché’ alcune di queste hanno un uso dedicato nel sistema 
operativo dello Spectrum. I bits da 0 a 4 dell’indirizzo della 
porta dovrebbero essere alti, e il bit 7 basso, il che lascia 
solo qua’ttro indirizzi utilizzabili: IFH, 3FH, 5FH e 7FH. Le 
limitazioni si riferiscono particolarmente alle porte in output. 


rimanemze: 

Sono già’ state menzionate un gran numero di parole importanti. 
Quelle associate al processo di compilazione verranno trattate 
in seguito, nel capitolo IV, ma verrà’ fatto qui un tentativo 
per col legare fra loro le parole che restano. 

Per prima cosa c’e’ la parola FORTH in se’. Questa chiama il 
vocabolario FORTH, distinguendolo da ogni altro set di parole 
che possa essere stato definito, tipo vocabolario EDITOR. 
Chiamando il nome di un vocabolario, vengono attivate le 
associazioni all’interno del dizionario, diventa cosi’ 
disponibile il set di parole' richiesto. Per essere precisi, 
viene rimesso a zero CONTEXT, portando il puntatore al punto 
d’inizio per le ricerche. Un tentativo di usare FORGET per 
eliminare una parola che non e’ nel vocabolario corrente, da’ 
errore 24, perche’ potreste distruggere molte piu’ parole di 
quante vorreste. In ogni caso, non vi sara’ permesso di usare 
FORGET quelle parole che si trovano aldilà’ del punto definito 
da FENCE che agisce come una bariera protettiva. 

Quando usate FORGET su una parola, non scartate solo la 
parola in causa ma anche tutte le parole che vengono dopo nel 
dizionario, cioè’ tutte le parole di origine piu’ recente. Ciò’ 
viene talvolta usato vantaggiosamente per compilare la parola 
posticcia TASK come prima parola di un programma. FORGET TASK 
scarterà’ quindi il programma, comprese tutte le parole valide 
che contiene. Tali parole non possono essere scartate 
direttamente. 

La variabile STATE determina il modo corrente di lavoro, 
esecuzione diretta o compilazione e genera un errore se viene 
usata una parola non appropriata a tale stato. Il sistema di 
controllo degli errori usa un certo numero di parole, un buon 
punto di partenza e’ 7ERR0R, che ricorre nella forma di: 

f n ERROR, dove n definisce il numero dell’errore ed f e’ 
il flag che e’ vero se l’errore e’ presente. Se il flag e’ 
falso, f ed n vengono cancellati dallo stack e l’azione 
continua. 

Se il flag e’ vero, viene chiamato ERROR con n in TOS. Quello 
che succede poi dipende dal contenuto di WARNING. Se WARNING e’ 
negativo viene chiamato (ABORT), essendo ABORT chiamato a turno. 
Altrimenti viene visualizzata la parola sbagliata seguita da un 
punto interrogativo, e quindi viene chiamato MESSAGE ancora con 
TOS^n, poi il puntatore dello stack viene reinizializzato, segue 
QUIT. 

WARNING controlla anche l’azione di MESSAGE. Se WARNING*0, 
viene visualizzata la forma 'MSG # n*. Se WARNING e’ maggiore di 
zero, il ristema visualizzerà’ un messaggio esplicito, essendo 



il testo contenuto nel sistema di memorizzazione RAM-disc 
descritto nel capitolo IV. Siccome tale testo occuperebbe un 
quinto della memoria disponibile, non viene normalmente usato 
nel FORTH Abersoft, e non sarebbe affatto pratico per altre 
implementazioni che forniscano meno memoria. 

7STACK controlla il valore del principale puntatore dello 
stack, leggendone il contenuto con SPI? e confrontando il 
risultato con SO, il suo valore iniziaiizzato, e con MERE + 80H. 
Se il puntatore e’ sotto MERE + 80H c'e' il rischio di un 
conflitto con il programma in memoria e viene chiamato 7ERR0R 
con n=7 e un flag vero. Se il puntatore e’ sotto SO, lo stack e’ 
stato svuotato e viene chiamato 7ERR0R con n=l e un flag vero. 
Se nessuno di queste condizioni esiste, viene posto un flag 
falso e, anche se n=7, ERROR non ha effetto. L’approccio a una 
condizione di errore 7 può’ essere anticipato usando FREE . per 
vedere la quantità’ di memoria libera. 

Altri controlli di errore sono: 

7C0MP chiama l’errore 17 se il sistema non e’ nel modo 
compilazione. 

7EXEC chiama l’errore 18 se il sistema non e’ nel modo di 
esecuzione diretta. 

7PAIRS chiama l’errore 19 se le parole di ramificazione e 
di rlcorsione non sono accoppiate nella sequenza corretta. 
7CSP chiama l’errore 20 se il puntatore dello stack non 
corrisponde al contenuto della variabile CSP, indicando 
l’inserimento di una parola incompleta nel dizionario. 
7L0ADING chiama l’errore 22 se il buffer di input 
terminale e’ in uso. 

Le funzioni sussidiarie e le variabili associate al sistema 
di errori sono: 

!CSP Mette CSP al valore corrente del puntatore 

dello stack. 

RO La sorgente di iniziaiizzazlone per il 

puntatore del Return Stack. 

RP@ Legge il puntatore del Return Stack e lo 

mette in TOS. 

RP! Mette 11 puntatore del Return Stack al valore 

di RO. 

SP! Mette a 20 il puntatore dello stak del 

calcolatore. 

Per finire, in questo gruppo, può’ venire chiamato WHERE dopo 
un errore durante la compilazione, in seguito a do’ verrà' 
localizzata la sorgente dell’errore evidenziando la linea 
relativa sul display con una freccia che punta alla parola 
sbagliata. Il verdetto non e’ sempre accurato. Se, per esemplo, 
vengono dimenticati 1 due punti all’inizio di una definizione 
tramite due punti,1'errore può’ evidenziarsi solo quando viene 
raggiunto il punto e virgola. Tenendo questo a mente, WHERE vi 
fornisce un utile aiuto per il debugging* del codice sorgente. 

Poche delle parole appena descritte, verranno normalmente 
chiamate dall’utente. Come molte altre, vengono fornite per 
essere usate dal sistema interno FORTH, 

COLO e WARM, sono un’altra faccenda. Queste permettono di 

4 OpcraziOM eh* consict* n«ir«timifMr« gli «rrori di vario ganara cha, inavitabilmanta, incorrono natta tMiura dai programma. 
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relnizlalizzare 11 sistema con e senza la perdita delle 
estensioni del dizionario. Possono essere chiamate come parole, 
ma sono anche accessibili dal BASIC con GOTO 2 per COLO e GOTO 3 
per WARM. Il sistema BASIC può’ essere inserito con MON. 

E’ a volte utile sapere quanto sia grande il dizionario, 
visto che può’ essere salvato su nastro in forma estesa, e SIZE 
serve a questo scopo, mettendo in TOS il numero di bytes fra 
ORIGIN e MERE. ORIGIN e’ il punto di inizio nominale del 
programma e n+ORIGIN mette nel TOS l’indirizzo dell’n-esimo byte 
da quel punto iniziale. 

EXECUTE e COMPILE producono l’inserimento del modo di lavoro 
nominato, mettendo STATE al valore appropriato. 

NOOP non fa niente, tranne magari riempire un vuoto. 

Ci rimane da dire che 0, 1, 2 e 3 sono parole FORTH sotto 
forma di costanti, il che evita la necessita’ di calcolare il 
loro valore, e n USER fornisce l’indirizzo di una locazione 
all’interno dell’area variabili dell’utente, che e’ definita in 
Appendice A. 

L’appendice risponderà’ anche a molte domande sulle parole 
che non sono ancora state trattate, includendo il vocabolario 
EDITOR , che contiene 28 parole. Tuttavia, gli esempi che 
troverete nel capitolo IV dovrebbero chiarire eventuali punti 
poco chiari. 
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CAF>IT01_0 IV 
Il DI sc:c3 RAM 


Questo capitolo tratta delle possibilità’ di memorizzare il 
codice sorgente, per salvare e caricare copie da nastro, e 
descrive il vocabolario EDITOR. 


GLI SCHERMI 

Abbiamo bisogno ancora di un’altra caratteristica per rendere il 
FORTH pienamente vitale. L’inserimento di definizioni tramite 
due punti per la compilazione immediata, può’ essere 
estremamente tedioso, specialmente se sono necessarie frequenti 
modifiche. La soluzione si trova nello schermo, che memorizza il 
codice sorgente per la compilazione in maniera tale da 
consentire di fare cambiamenti in modo facile e piuttosto 
veloce. 

Il FORTH Spectrum fornisce dodici schermi, ognuno contenente 
sedici linee di 64 caratteri. Questo e’ il formato standard 
dello schermo FORTH, e non e’ pienamente compatibile con il 
display, piu’ piccolo, dello Spectrum. Ciò’ fa si che l’utente 
debba tollerare alcuni scroi 1 e usare CAPS e 1 per il BREAK, ma 
il tutto e’ piuttosto maneggevole. 

L’Input n LIST visualizzerà’ e selezionerà’ lo schermo n, ma 
il display iniziale visualizzerà’ linee piene di punti di 
domanda, polche’ l’area di memoria e’ piena di bytes 0. 
INIT-DISC riempirà’ l’area di dello schermo del codice dello 
spazio. Quindi può’ essere inserito il codice sorgente, usando 
il vocabolario EDITOR, e può’ essere poi compilato da n LOAD 
dove n e’ il numero dello schermo in causa. Se viene inserito 
—> alla fine dello schermo, la compilazione continuerà’ nel 
prossimo schermo. In questo modo, possono essere compilati tutti 
e dieci gli schermi <1-10), se lo si desidera. 

SAVET saivera’ su nastro l’intero contenuto del disco RAM, 
che può’ essere ricaricato con LOADT o controllato con VERIFY; 
tutte queste parole sono varianti di (TAPE), l’istruzione comune 
del sistema del nastro. Tutti i files su nastro hanno il nome 
"DISC", spetterà’ a voi trovare il modo di distinguerli l’uno 
dal 1’altro. 

Ciò’ che può’ non essere immediatamente ovvio e’ che possono 
essere caricati a turno un certo numero di gruppi di schermi, 
ognuno dei quali può’ essere compilato mentre e’ presente, cosi’ 
possono essere creati programmi relativamente grandi. 

Le convenzioni sul FORTH, alcune rafforzate dalle 
caratteristiche del linguaggio, impongono alcune limitazioni sul 
modo in cui viene Usato lo schermo. 

Lo schermo 0 e’ riservato a commenti e spiegazioni, e non 
può’ essere usato per la compilazione. Analogamente la linea 0 
e’ riservata al titolo, e x y INDEX scriverà’ 1 titoli degli 
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schermi da x a y. Come per tutti 1 commenti, 1 titoli devono 
essere racchiusi fra parentesi tonde, con uno spazio dopo 
l'aperta parentesi, poiché’ e’ una parola FOTRH che significa 
"ignora tutto do’ che segue finche’ trovi la parentesi chiusa*. 
Le parentesi possono essere usate come inserimenti temporanei 
per forzare il sistema ad ihlziare la compilazione in mezzo allo 
schermo, l’aperta parentesi viene messa all’inizio della linea 0 
e la chiusa parentesi immediatamente prima del punto in cui la 
compilazione deve iniziare. La parola ;S causerà’ l’interruzione 
della compilazione, come un inserimento nullo in qualsiasi punto 
dello schermo. 

Altre convenzioni derivano dal fatto che gli schermi furono 
originariamente intesi per lavorare come parte di un sistema a 
dischi, ed era ragionevole destinare due schermi al supporto dei 
testi del messaggi d’errore. Gli errori da 1 a 15 erano forniti 
dallo schermo 4, 1 rimanenti dallo schermo 5. Questa 
caratteristica esiste ancora e può’ essere richiamata mettendo 
WARNING a 1 <1 WARNING !). Dovrete inserire 1 messaggi negli 
schermi interessati, ma questa può’ essere una cosa utile mentre 
vi abituate al codici d’errore. Perderete due schermi, ma do’ 
può’ non essere troppo catastrofico all’inizio. 

Per stampare i records, e’ utile TRIAD. Esso visualizzerà’ o 
stamperà’ il conenuto di tre schermi, iniziando a 0, 3, 6, o 9. 
Cosi’ 5 TRIAD stamperebbe il gruppo che include lo schermo 5, 
Cloe’ gli schermi 3, 4 e 5. 

Ci sono un certo numero di parole che vengono fornite per 
essere usate nella manipolazione dello schermo, ma prima di 
esaminarle sara’ meglio vedere il vocabolario dell’edltor, che 
e’ essenziale per definire i dati dello schermo. 


L'EDITOR 

Immediatamente dopo il caricamento del nastro FORTH, VLIST 
visualizzerà’ una stringa di parole iniziando da UDG, l’ultima 
parola inserita nel vocabolario FORTH di base. Definendo 
qualsiasi altra parola in questo vocabolario, questa apparirà’ 
prima di UDG essendo di origine piu’ recente. Inserendo EDITOR e 
VLIST verrà’ mostrato un altro gruppo di parole all’inizio del 
display; queste sono le parole nel vocabolario spedale EDITOR. 
La parola EDITOR ha chiamato le associazioni nel dizionario per 
mettere in azione queste parole. La parola FORTH chiamerà’ altre 
associazioni cosicché’ le parole dell’EDITOR non saranno piu’ 
accesslbi1i. 

Ci sono forse troppe parole nel vocabolario EDITOR, ed e’ meglio 
abituardsi gradualmente. Per prima cosa dovete selezionare uno 
"schermo", cancellarlo, e metterlo in funzione. Se volete 
selezionare uno schermo senza cancellarlo, dovete usare n LIST. 
Indi, in qualunque momento, dopo che sia stato abilitato EDITOR, 
anche L visualizzerà’ lo schermo dalla linea 0. 

Il metodo piu’ semplice per inserire un testo in uno schermo 
vuoto e’ il formato m P testo, questo mette il testo alla linea 
m dello schermo corrente. 
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Se poteste garantire il 100% di accuratezza nella battuta e 
una totale Infallibilità’ nella formazione delle definizioni 
tramite due punti, quest’unlca istruzione sarebbe sufflcente per 
la definizione del codice sorgente ma, inevitabilmente, ci 
saranno dei cambiamenti da fare. Il primo passo e’ individuare 
il punto in cui va fatto il cambiamento e, per questo, esistono 
alcune caratteristiche utili alla ricerca, che dipendono dalla 
posizione del cursore, che e’ memorizzata nella variabile R#. 

TOP azzera le variabili, e dovrebbe essere usato prima di una 
ricerca, a meno di non essere sicuri che il cursore sia sopra o 
a sinistra del punto da cambiare. Supponete di voler cambiare 
FIRTH in FORTH. Se la parola sbagliata ricorre solo una volta 
nello schermo, TOP X FIRTH la cancellerà’, lasciando il cursore 
alla posizione che la parola occupava. C FORTH inserirà’ quindi 
la parola FORTH nello stesso punto. Ricordate che C e X, essendo 
parole FORTH richiedono che segua uno spazio prima dell’inizio 
del testo associato. Se inserite C senza il testo, inserirete un 
codice nullo che deve essere rimosso, polche’ agisce come un 
indicatore di fine. Fortunatamente, TOP X non solo localizzerà’ 
il codice nullo, ma lo sostituirà’ con uno spazio. 

Se la parola che volete cancellare ricorre piu’ di una volta, 
potete individuare la prima volta che ricorre, senza 
cancellarla, usando TOP F testo, e qulnl N andra' avanti alla 
prossima ricorrenza . Quando avrete trovato la posizione giusta, 
il cursore sara’ alla fine del testo, ma B lo porterà’ ancora 
all’inizio del testo, cosi’ che possano essere usate X e C. 

TILL cancellerà’ tutti 1 testi dalla posizione del cursore 
alla fine della linea del cursore. 

Il cursore può’ essere posizionato precisamente da n M , che 
muove il cursore di n posizioni e visualizza la posizione 
risultante. Il valore di n può’ essere positivo o negativo. 

In tutti questi movimenti e cambiamenti, il testo operativo 
e’ contenuto in un buffer chiamato PAD, e questo può’ essere 
usato per contenere temporaneamente le linee per poter 
modificare l’ordine delle altre linee dello schermo. Per poter 
muovere la linea n dello schermo corrente in PAD, avete bisogno 
di n H , mentre n D muove il testo e cancella la sorgente. Per 
contro, n E cancellerà’ le linee senza salvarle. 

Quando una linea si trovi in PAD, e volete inserirla fra due 
linee adiacenti, n S muovere’, di una linea verso il basso, la 
linea n e tutte le linee sotto di essa, perdendo la linea 15, e 
n R trasferire’ il testo da PAD alla linea lasciata libera. Piu' 
semplicemente, n I eseguirà’ entrambe le operazioni. 

Nel caso che lo schermo sia molto pieno, e’ utile a volte 
impiegare n T , che batte una singola linea e la tiene in PAD; 
la linea può’ poi venir controllata separatamente. 

Le restanti parole dell'editor, sono per la maggior parte 
sottofunzioni di quelle che abbiamo descritto, e non vengono 
generalmente usate direttamente, ma un’eccezione e’ costituita 
da COPY. 

La forma a b COPY , copierà’ il contenuto dello schermo a 
nello schermo b. Una sua estensione usa un numero di schermo 
negativo, che copierà’ uno schermo in o dallo spazio libero fra 
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Il dizionario e lo stack. Se lo spazio libero e’ limitato, e’ 
meglio fare un tentativo d’secuzlone per assicurarsi che l’area 
usata non sla occupata, tacendo un trasferimento falso da essa. 

Questa caratteristica ha 11 vantaggio che uno schermo può’ 
venir mosso da una registrazione su nastro ad un’altra. La 
registrazione che contiene originariamente lo schermo, viene 
caricata, e quindi lo schermo viene trasferito In uno spazio 
libero e cancellato dallo schermo sorgente. Il risultato viene 
salvato e verificato. Viene caricata quindi la seconda 
registrazione, e lo schermo viene rltrasferlto in uno schermo 
libero. Essendo fuori dall’area di schermo normale, questo non 
ha subito l’effetto dal salvataggio e dal caricamento. Può’ 
essere ora salvato come parte della seconda registrazione. 

Questo piccolo trucco può’ essere molto utile, ma funziona 
meglio quando non ci sono estensioni del dizionario, e lo spazio 
libero e’ alla sua massima estensione. 

Forse dovrebbe essere menzionato n DELETE . Questi cancella n 
caratteri alla sinistra della posizione del cursore, e viene In 
realta’ fornito per servire X . Le parole che restano sono: 
MATCH , iLOCATE , #LEAD , #FLAG , -MOVE , -TEXT , RINE e FINO . 
Tutte queste sono principalmente parole per uso Interno, 
piuttosto che parole per l’utente. 

Se c’e’ una pecca nel sistema di editing, sta nel gran numero 
di parole fornite. Con un po’ di pratica, scoprerete che un 
piccolo sottogruppo di queste, servirà’ alla maggior parte degli 
scopi. 

Sara’ stato notato che le parole Rei del vocabolario EDITOR 
sono Identiche a quelle del vocabolario FORTH. Per l’esecuzione 
diretta, tuttavia, le forme EDITOR, vengono trovate prima quando 
e’ abilitato 11 vocabolario EDITOR, cosi’ vengono usate queste. 

Le parole per l’utente nel vocabolario EDITOR possono essere 
cosi’ riassunte: 

B Muove Indietro 11 cursore della lunghezza del 

testo contenuta In PAD. 

C Inserisce 11 testo seguente alla posizione del 

cursore, propagando 11 testo originale per fare 
spazio. 

D Rimuove TOS considerandolo come numero di linea 

e cancella quella linea dopo averla copiata In 
PAD. 

DELETE Rimuove TOS considerandolo come .numero di 

caratteri e cancella quel numero di caratteri 
alla sinistra del cursore. 

E Rimuove TOS considerandolo come numero di linea 

e cancella quella linea con l codici dello 
spazio. 

F Ricerca 11 testo seguente dal cursore alla fine 

dello schermo. 

FINO Come F , ma usando un testo già’ In PAD, e 

termina con TOP, 

H Rimuove TOS considerandolo un numero di linea e 

copia quella linea In PAD. 


56 



I Esegue S e R , Inserendo la linea da PAD alla 

linea TOS. 

L Lista lo schermo corrente. 

M Aggiunge TOS alla posizione del cursore e 

visualizza la linea. 

N Trova 11 prossimo punto In cui ricorre 11 testo 

In PAD. 

P Mette 11 testo seguente alla linea definita da 

TOS. 

R Sostituisce la linea Identificata da TOS con 11 

testo In PAD. 

S Sposta di una linea verso il basso la linea 

identificata da TOS e le linee seguenti. 

T Visualizza la linea e la copia In PAD. 

TILL Cancella dal cursore alla fine della linea. 

X Cancella 11 testo seguente la prima volta che 

ricorre. 

TOP Mette a zero 11 cursore. 

CLEAR Cancella lo schermo Identificato da TOS. 


DIETRO GLI 


SCHERMI 


Per conservare una compatibilita’ almeno nominale con 11 
fig-FORTH standard, 11 FORTH Spectrum Include nel suo 
vocabolario un certo numero di parole che si riferiscono alle 
vere operazioni col dischi, ma non sono direttamente relative al 
sistema del disco RAM. 

Viene stabilita un’area per un buffer fra CBE0 e CFFF, e 
questa contiene otto aree di buffer di capacita’ nominale di 128 
bytes, altri quattro bytes vengono forniti per funzioni di 
controllo. In un vero sistema a dischi, questi sarebbero In 
diretta comunicazione con 11 disco, contenendo 1 records In 
lettura e fornendo 1 dati In scrittura. 

In generale, le parole che si riferiscono a questi buffers 
possono essere ignorate tranne forse per fare esperimenti 
avventurosi. Le parole, tutte definite In dettaglio In Appendice 
A, sono: 


Costanti : 

# BUFF 
B/BUFF 

B/SCR 

C/L 

Numero di 
Numero di 
Numero di 
Numero di 

buffers allocati <8) 
bytes per buffer <128> 
blocchi per schermo <8) 
caratteri per linea (64) 


FIRST 

Indirizzo 

<CBE0) 

d’Inlzlo del buffer inferiore 

HI 

Indirizzo 

(FBFF) 

della fine dell’area 

schermo 

LIMIT 

Indirizzo della fine dell'area del 
piu’ 1 <D000) 

buffer 

LO 

Indirizzo 

<D000) 

d’Inlzlo dell’area dello 

schermo 
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Variabili : 

BLK 

OFFSET 

PREV 

USE 

SOR 


Funzioni ; 
+BUF 


■ LINE 


BLOCK 


BUFFER 


ORO 

EMPTY-BUFFERS 

FLUSH 

LINE 


Numero del blocchi interpretati. Se BLK=0, 
e’ in uso il TIB come sorgente. 

Può’ essere usato per spostare l’area degli 
schermi, ciò’ equivale a muoversi in un’area 
disco differente. E’ meglio lasciarlo a 
zero. 

Contiene l’indirizzo del buffer usato piu’ 
di recente. 

Contiene l’indirizzo del buffer Usato meno 
di recente. 

Contiene il numero degli schermi in uso. 


Rimuove TOS considerandolo l’indirizzo del 
buffer corrente e seleziona il prossimo 
buffer in sequenza, mettendo l’indirizzo di 
quest’ultimo in 20S e un flag in TOS. Se il 
nuovo buffer e’ quello identificato da PREV, 
il flag e’ falso. 

Rimuove TOS considerandolo un numero di 
schermo. Se quel blocco e’ contenuto in un 
buffer, l’indirizzo del buffer viene messo 
in TOS. Altrimenti il contenuto del buffer 
identificato da USE e’ letto dal disco <ln 
questo caso il disco RAM) e il blocco viene 
copiato in quel buffer, l’indirizzo del 

quale e’ viene messo in TOS. 

Rimuove TOS considerandolo il numero di un 
blocco. Se quel blocco e’ contenuto in un 
buffer, l’indirizzo del buffer viene messo 
in TOS. Altrimenti il contenuto del buffer 
identificato da USE e’ letto dal disco (in 
questo caso il disco RAM) e il blocco viene 
copiato in quel buffer, l’indirizzo del 

quale viene messo in TOS. 

Rimuove TOS considerandolo il numero di un 
blocco ed assegna il prossimo buffer a quel 
blocco, salvando prima 1 contenuti del 
buffer su disco se sono stati aggiornati. 
L’indirizzo del buffer viene messo in TOS. 
(BLOCK usa BUFFER) 

Mette OFFSET a zero. 

Mette i campi di controllo di tutti i 
buffers allo stato iniziale, cioè’ vuoti. 
Scrive su disco tutti i buffers modificati. 
Rimuove TOS come numero di linea e mette in 
TOS l’indirizzo dell’inizio della linea 
nello schermo corrente. 
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R/W 

TEXT 

UPDATE 


Rimuove TOS considerandolo come un flag, 20S 
come numero di blocco e 30S come indirizzo. 
Se il flag e’ falso, il dato e’ scritto dal 
buffer al disco (il disco RAM). Se il flag 
e’ vero viene eseguita una operazione di 
lettura. 

Viene rimosso TOS e considerato un 
del Imitatore, il testo seguente e’ copiato 
in PAD. 

Il buffer identificato da PREV viene marcato 
"aggiornato" (updated), cioè’ il suo 
contenuto e’ stato alterato. 
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CARITOLO V 

Semp>l lei Rjrogiramml 


In questo capitolo verrano discussi ed esemplificati alcuni 
semplici programmi. 


SEMRLICI RROQRAMMl 


Armati ora di tutti le notizie che cl servono, possiamo 
cominciare a vedere alcuni semplici programmi. Per cominciare, 
cosa ne dite di un programma per archiviare dati memorizzati e 
visualizzarli?. 


SCR # 1 

0 < PROGRAMMA ARCHIVIO) 

1 : TASK ; 

2 : PLINE CR DUP 5 U.R 8 0 DO 

3 DUP C@ 3 -R 1+ 

4 LOOP ; 

5 : PBLOCK CR 16 0 DO PLINE LOOP ; 

6 : GETN QUERY INTERPRET ; 

7 : DUMP HEX CLS Indirizzo di inizio ?' 

8 GETN BEGIN PBLOCK CR KEY DROP 

9 7TERMINAL UNTIL ; 


Mettete 11 programma nello schermo numero 1, controllatelo e, se 
necessario, correggete gli errori. Chiamate quindi FORTH 1 LOAD 
; a questo punto, la parola DUMP chiamerà' 11 programma. Nella 
maggior parta del BASICs, sarebbe stato molto piu’ lungo 
ottenere 11 formato richiesto ed eseguire la conversione 
esadeclmale. 

Il programma non e' impaginato nello stile formale del FORTH, 
ma comunque si caricherà’ perfettamente. Notate l’uso di TASK 
all’inizio, cosi’ che 11 programma si potrà’ cancellare con 
FORGET TASK. 

PLINE esegue un newllne, quindi duplica 11 TOS che contiene 
l’Indirizzo corrente dell’archivio. La copia viene usata per 
visualizzare l’indirizzo In un campo di cinque posizioni <5 U.R) 
e quindi viene Inserito un ciclo a 8 Iterazioni che duplica 
ancora l’indirizzo, legge 11 contenuto della locazione definita 
e visualizza 11 risultato In un campo di tre posizioni. 
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L’indirizzo, ancora in TOS, viene incrementato e il ciclo 
iterato. Il risultato finale e’ una linea singola dell’archivio. 
E’ in esadecimale polche’ DUMP stabilisce questa condizione. 

PBLOCK ripete PLINE sedici volte, aggiungendo prima una linea 
vuota. 

GETN mette l’indirizzo di partenza desiderato in TOS. 

DUMP , la parola che richiama il programma, stabilisce il 
sistema esadecimale (HEX), cancella lo schermo e scrive un 
invito a inserire l’indirizzo di partenza. Questo sarebbe potuto 
essere incluso altrettanto bene in GETN per mostrare piu’ 
chiaramente lo scopo di questa parola. Il ciclo BEGIN-UNTIL 
ripete il tutto finche’ non viene premuto BREAK (CAPS SHIFT e 
1), ma l’azione si interrompe ad ogni blocco finche’ viene 
premuta un tasto. Notate che il risultato di KEY viene scartato 
(DROP) giacche’ non interessa. 

Mettete il programma nello schermo 1, controllatelo e, se 
necessario correggete gli errori. Quindi chiamate 1 LOAD 
dopodiché’ la parola DUMP chiamerà’ il programma. Nella maggior 
parte dei BASICs sarebbe stato molto piu* lungo ottenere il 
formato richiesto ed eseguire la conversione esadecimale. 

Potreste voler vedere il testo, piuttosto che i codici 
esadecimali. Benissimo, dobbiamo cambiare PLINE come segue: 

: TPLINE CR DUP 5 U.R SPACE 16 0 DO 

DUP C@ 32 MAX DUP 160 > IF 128 - ENDIF 
EMIT 1+ LOOP ; 

Visto che e’ archiviato un solo carattere per locazione, 
possiamo mettere 16 caratteri in una linea. Non vogliamo che 
vengano visualizzati codici sotto il 32, che potrebbero dare 
problemi, cosi’ mettiamo 32 MAX in modo che venga preso 32 se il 
TOS antecedente era minore. I codici sopra 160 sono nell’area 
dei tokens, cosi’, per loro, dobbiamo sottrarre 128. Usiamo EMIT 
per emettere il carattere del codice ASCII anziché’ il valore 
esadecimale. 

Queste due semplici routines, chiamano in causa un certo 
numero di punti importanti. Siccome abbiamo cambiato il nome di 
PLINE in TPLINE , questa non sara’ piu’ chiamata da PBLOCK per 
cui dobbiamo definire una nuova versione di PBLOCK chiamata 
TPBLOCK e una nuova versione di DUMP chiamata TDUMP . GETN non 
ha bisogno di modifiche se e’ già’ stato complilato. 

Se avessimo chiamato la definizione PLINE non avremmo avuto 
differenze poiché’ PBLOCK avrebbe fatto riferimento al PLINE 
originale, quello che era stato definito prima di PBLOCK. 

Usando l’EDITOR e’ abbastanza semplice copiare la pagina 1 
alla pagina 2 ed alterare i nomi come necessario, con la 
definizione di TPLINE in cima. 

Il punto successivo riguarda 1 numeri. La compilazione e’ 
stata fatta con il sistema allo stato decimale (DECIMAL), cosi’ 
che i numeri sono stati dati in forma decimale. HEX non viene 
eseguito alla linea 7 dello schermo 1, poche’ e’ in 
compilazione. E’ bene notare che LIST definisce il modo decimale 
per 1 propri scopi, cosi’ e’ generalmente meglio usare valori 
decimali nel codice sorgente. Quando e’ piu’ coveniente usare 
valori esadecimali, dovete solo inserire HEX, fuori da una 
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definizione In modo che venga eseguito e non compilato. 

Cosa possiamo dire ancora? Ebbene, una rimarchevole assenza 
dal dizionario e’ un qualsiasi tipo di generatore casuale, e la 
maggior parte del programmi ne abbisognano prima o poi. Qui 
c’e’una possibilità’: 

0 VARIABLE SEED 

: MODSEED SEED 9 75 U» 75 0 D+ 

OVER OVER U< - - 1 - DUP SEED ! ; 

: RND MODSEED U* SWAP DROP ; 

: RAND -DUP 0= IF 23672 9 THEN SEED ! ; 

RAND e’ un generatore di numeri a caso. 0 RAND metterà’ SEED 
al byte minore di FRAMES. Se 11 TOS non e’ a zero, tale valore 
verrà’ messo In SEED. 

RND e’ l’effettivo generatore di numeri random dal punto di 
vista dell’utente. Viene usato nella forma n RND che genera un 
numero compreso fra 0 ed n. 

MODSEED cambia il valore di SEED e crea 11 numero a caso di 
base fra 0 e 1 per 11 quale viene moltipllcato n. 

Il lavoro effettivo delle parole e’ meno importante del 
risultato che danno. Ci sono qui alcune definizioni che vi 
permettono di controllare la casualità’: 

0 VARIABLE ARRAY 62 ALLO! 

: AGEN ARRAY SWAP 2 * + ; 

: A! AQEN ! ; 

: A9 AQEN 9 ; 

: ZERO 32 0 DO 0 I A! LOOP ; 

: SETUP 0 RAND 1000 0 DO 32 RND DUP A9 1+ SWAP A! LOOP ; 

: DISP CR 32 0 DO I A0 8 .R LOOP ; 

: GRAPH CLS 32 0 DO I 8 * 0 PLOT I 8 » I A9 DRAW LOOP ; 

: CHECK ZERO SETUP GRAPH ; 

: DISCHECK ZERO SETUP DISP ; 


Viene definito un array di 64 bytes. ZERO mette a zero l’array. 
SETUP genera quindi mille numeri casuali fra 0 e 32 (senza mal 
effettivamente raggiungere 32) e aggiunge 1 all’n-eslmo elemento 
dell’array ogni volta che risulta 11 numero n. Sono disponibili 
due opzioni per controllare la casualità’: DISCHECK chiama ZERO 
SETUP DISPLAY che mostrano 1 32 numeri nell’array In quattro 
colonne, CHECK MOSTRA IL RISULTATO IN FORMA DI ISTOGRAMMA. E’ 
possibile fare un controllo piu’ rigoroso incrementando le 
dimensioni del ciclo DO In SETUP. 

Questi semplici programmi meritano di essere analizzati In 
dettaglio; noterete che potete Imparare da essi. CI sono spesso 
modi alternativi di fare le stesse cose In FORTH. Potreste 
trovare che 1 manipolatori dello stack meritano di essere 
riesaminati. Provare a combinare le routlnes GRAPH e DISP per 
ottenere un grafico con 1 numeri. 

Dopo tutto, sperimentata qualche routine per conto vostro, se 
siete a corto di Idee, prendete un programma BASIC piuttosto 
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semplice e convertitelo In FORTH. Se l’originale e’ disordinato, 
dovrete prima ordinarlo, giacche’ i programmi FORTH devono 
essere strutturati. Questo significa che devono essere stesi in 
maniera coerente. In particolare le definizioni devono essere 
nel giusto ordine. 

Nel prossimo paragrafo, esamineremo l’approccio alla 
scrittura di un programma piu’ grande di quelli già’ visti. ' 


RROQETTAZIONE DI UN RROGRAMMA 


Verrà’ usato il problema classico della "Torre di Hanoi* per 
illustrare il modo in cui va progettato un programma. Il 
problema coinvolge un certo numero di dischi di. dimensioni 
differenti arrangiati in tre pile. Iniziando con tutti 1 dischi 
nella pila 0 , questi devono essere mossi, uno alla volta, alla 
pila 2, non potendosi mal porre un disco sopra uno di dimensioni 
minori. 

La struttura complessiva del programma sara’ 

approssimativamente : 

Visualizza il titolo 

Definisci le condizioni iniziali 

Muovi i dischi 

Chiedi se si vuole ripetere 

Se e’ cosi’,ripeti dalla iniziaiIzzazlone 

Il primo passo, e’ decidere il formato del display. Sara’ 
conveniente porre i centri delle pile nella sesta, 
diciassettesima e ventottesima colonna. Per il plottlng grafico, 
le coordinate saranno approssimativamente 43, 131 e 219. 

Approssimativamente, polche’ per averli nel centro del numeri 
delle pile sarebbe necessario creare caratteri speciali per i 
numeri, visto che i numeri normali non hanno un punto in 
posizione centrale. 

Se stabiliamo che l’n-esimo disco sia grande 6*n punti, 
potremo maneggiare fino a 12 dischi. 

Deve poi essere deciso il metodo di lavoro. Il diagramma a 
blocchi che viene presentato mostra un approccio che non usa ne' 
ricorsioni ne’ formule empiriche ed e’ giustificabile sul plano 
delia semplice logica. 

Ogni mossa viene specificata da tre numeri nello stack. TOS da’ 
il numero del disco, e verrà’ mostrato come n; 20S contiene il 
numero della pila dalla quale deve essere preso il disco e 
verrà* mostrato come s; 30S contiene il numero della pila in cui 
va messo il disco e verrà’ mostrato come d. 

Se devono essere mossi n dischi, 1 dati Iniziali nello stack 
devono essere 2 0 n , chidendo la mossa del disco n dalla 
sorgente 0 alla destinazione 2. Questa mossa può’ essere fatta 
solo se tutti gli altri dischi sono nella pila 1, e la funzione 
QENl calcola 1 0 n-1 come mossa precedente. Questa, tuttavia, 
richiede 2 0 n-2 come mossa precedente e cosi’ via. GENI prende 
i tre dati originali nello stack d s e n e ne crea altri tre che 
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sono collegati al precedenti come segue; 

Il nuovo 30S viene calcolato come; 3-d-s. 

Il 20S rimane Inalterato. 

Il TOS viene decrementato. 

Quando la ripetizione riduce 11 TOS al, 11 processo 
effettivo delle mosse può’ Iniziare. Se cl sono cinque dischi, 
lo stack contiene; 

2051 04203102201 

Le mosse 2 0 1 e 1 0 2 possono essere fatte, mettendo 11 
disco 1 nella pila 2 e 11 disco 2 nella pila 1. Prima che possa 
essere fatta la terza mossa, 203, occorre una mossa extra per 
cancellare la pila 2. Questa e’ calcolata da GEN2, che modifica 
una mossa esistente, piuttosto che aggiungerne una nuova. Il 
cambiamento e’; 


Il nuovo 30S e’ uguale ad, 11 30S originale. 

Il nuovo 20S viene calcolato come 3-d-s. Siccome 11 totale 
di tutti 1 numeri delle pile e’ 3, questo Identificherà’ 
la pila non coinvolta nella mossa originale. 

Il nuovo TOS e’ uno meno del TOS originale. 

Questo, nel contesto precedente, da’ 1 2 1, muovendo 11 disco 
1 dalla pila 2 alla pila 1. 

Se viene calcolata una sequenza di mosse su questa base, si 
noterà’ che le mosse generate sono quelle richieste per fare la 
mossa specificata. Notate, tuttavia, che n può’ avere due 
significati. Può’ significare disco non dischi. La distinzione 
non e’ Importante in pratica. 

GENI Sara’ ovviamente una parola FORTH. Dovrà’ prima copiare 
SOS, e Sara’ utile a questo proposito una subparola speciale; 

; 30VER >R OVER R> SWAP ; 

TOS viene passato a TORS mentre OVER copia il SOS come nuovo 
TOS. Dopo aver ristabilito 11 TOS originale, SWAP porta la copia 
di SOS in 20S. Lo stack originale d s n diventa d s n d. 

Può’ allora essere definito GENI; 

; GENI 30VER 3 SWAP - 30VER - 30VER 30VER 1 - ; 

Come tutte le nuove parole di una certa complessità’, 
dovrebbe essere controllata tabulando 1 cambiamenti dello stack; 


30VER 
3 SWAP - 
30VER - 
30VER 
30VER 
1 - 


Stack 
d s n 
d s n d 
d s n 3-d 
d s n 3-d-s 
d s n 3-d-s s 
d s n 3-d-s s 
d s n 3-d-s s n-1 


I tre nuovi dati sono stati aggiunti senza modificare il 
resto dello stack. 

GEN2 può’ essere definita analogamente come; 

; QEN2 ROT DUP >R 3 SWAP - ROT - R> SWAP ROT 1 - ; 


SS 



Controllando 1 cambiamenti dello stack: 

Stack 
d s n 

ROT end 

DUP >R s n d T0RS*d 

3 SWAP - 3 n 3-d 

ROT n 3-d s 

n 3-d-s 

R> n 3-d-s d 

SWAP n d 3-d-s 

ROT d 3-d-s n 

1 - d 3-d-s n-1 

Dobbiamo ora considerare la funzione TRANSFER Deve 

cancellare 11 disco n dalla sua posizione attuale e 
visualizzarlo nella nuova posizione. Nel processo, lo stack non 
deve essere alterato, giacche’ GEN2 potrebbe aver bisogno del 
dati. Se non e’ coinvolto GEN2, 1 tre dati che definiscono la 
mossa saranno scartati. Sarebbe senza dubbio possibile ottenere 
tale risultato usando solo lo stack, ma sara’ piu’ semplice far 
uso di alcune variabili e di un array. Le variabili sono DSIZE 
(meta’ larghezza del disco in punti), XPOS (centro verticale 
della colonna del disco in coordinate di punti), YPOS 
(coordinata verticale del fondo del disco). 

L’array e’ PILE, e contiene il numero di dischi in ogni pila. 
Poiché’ c’e’ solo un array, la definiremo come segue: 

0 VARIABLE ARRAY PILE 4 ALLOT 
: AGET PILE SWAP 2 » + ; 

; A! AGET ! ; 

: A9 AGET 0 ; 

L’indirizzo dell’elemento P sara' messo in TOS da P AGET, e 
si può’ accedere al contenuto dell’elemento con P A@ . Potremo 
scrivere nell’elemento con X P A! dove X e’ il dato da scrivere. 
Siccome 1 numeri coinvolti sono piccoli, arammo potuto usare un 
array a tre bytes anziché’ un array a tre parole, ma la 
questione non e’ molto importante. 

Usando la funzione BASIC OVER, possiamo usare la stessa 
routine per disegnare e cancellare 1 dischi: 

: DDRAW 1 QOVER 6 0 DO (Disegna sei linee orizzontali) 
XPOS 0 DSIZE 0 - (X in PLOT - XPOS-DSIZE) 

YPOS 0 I + PLOT (y in PLOT = YPOS+I) 

XPOS 0 DSIZE 0 + (X in DRAW = XPOS+DSIZE) 

YPOS 0 I + DRAW (y in DRAW * YPOS+I) 

LOOP 0 GOVER ; 

Abbiamo ora bisogno di una routine che traduca i tre dati in 
cima allo stack nel valori richiesti delle variabili: 

: SETUP OVER OVER (Stack dsnindsnsn) 

3 » DSIZE ! (DSIZE = 3*n) 

DUP A0 (Stack d s n s PILE(s)) 

1 + 8 * YPOS ! (YPOS = 8 ♦ (PILE(s) + D) 

88 » 43 + XPOS ! (XPOS = s * 88 + 43) 

DDRAW ; 

Ciò’ cancellerebbe il disco in cima alla pila s. Per inserire 
lo stesso disco nella pila d, e deve prima aggiustare il 
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contenuto dell’array PILE per tener conto della mossa, e quindi 
chiamare ancora SETUP con lo stack modificato temporaneamente da 
dsnindsdn ; 

: AOJUST OVER AGET - 1 SWAP + ! (decrementa PI LEO)) 

30VER AGET 1 SWAP + ! ; (incrementa PILE<d)) 

: TRANSFER SETUP AOJUST 30VER 
SWAP SETUP SWAP DROP ; 

Alla fine, per completare 11 diagramma a blocchi, abbiamo 
bisogno di : 

: CHECK 0 A0 1 A@ + ; (ritorna 0 quando la mossa e’ 

completa) 

La parola MOVE che copre il dlagrmma a blocchi può’ ora essere 
definita : 


: MOVE BEGIN CHECK WHILE 

BEGIN DUP 1 > WHILE 
GENI 
REPEAT 
BEGIN 

CHECK IF TRANSFER ENDIF 
DUP 1 > NOT WHILE 
DROP DROP DROP 
REPEAT GEN2 
REPEAT : 

Confrontatela con il diagramma a blocchi. 

Abbiamo ora bisogno di INIT , che ha la forma: 

: INIT ENQUIRE (Chiede quanti dischi) 

LINEDRAW (Disegna la linea di base) 

PILEDRAW (Disegna la pila iniziale) 

WAIT ; (Pausa prima dell’inizio di MOVE) 

: ENQUIRE 2 0 (Destinazione e sorgente iniziale) 

CLS 10 5 AT (Cancella lo schermo, posiziona il 

Quanti dischi ?" testo) 

QUERY INTERPRET (Ottiene la risposta) 

2 MAX 12 MIN ; (Limiti dei dischi) 

: LINEDRAW 1 INK (Linea blu) 

CLS 20 0 AT (Cancella scherno, posiziona linea) 

.* (5 SPIV) 1 (10 SPIV) 2 (10 SPIV) 3 (4 SPIV)” 

2 INK ; (Dischi rossi) 

Quanto a sopra, 10 SPIV significa 10 Spazi in Inverse Video, 
Graphic 8. 

: PILEDRAW 3 0 DO 0 I A! LOOP (Azzera elementi array) 

OVER OVER DUP 0 DO (Stack dsnlndsnsn) 

0 AGET 1 SWAP +! (Incrementa PILE(0)) 

I - SETUP DROP OVER (Disegna disco n-1. Rlpr. n) 

LOOP DROP DROP ; (Scarta dati non rilevanti) 

Abbiamo bisogno di una funzione per rispondere alla richiesta 
di far partire ancora il programma: 

; ASK 0 0 AT .” Ancora?* KEY 89 - j 
Ritornerà’ 0 se viene premuto Y. 

Abbiamo bisogno anche di una funzione che mostri il titolo: 

: TITLE CLS 10 6 AT .* LA TORRE DI HANOI* WAIT ; 

Tutto ciò' che ci rimane da fare e’ definire la funzione al 
livello piu’ alto. 
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: HANOI TITLE BEQIN INIT MOVE 0 INK ASK UNTIL ; 

Possiamo ora costruire una gerarchia di funzioni che mostri 
come ognuna sia in relazione alle altre, e questa sara’ la base 
per decidere in quale ordine andranno compilate: 

Le definizioni alla colonna destra andranno definite prima, 
quindi colonna per colonna verso sinistra. L’ordine non e' 
completamente rigido, provvedendo che le priorità’ necessarie 
vengano osservate. Nel listato allegato viene mostrata una 
possibile stesura in quattro schermi. 

Questo e’ un programma moderatamente complesso, 
principalmente a causa dell’utilizzazione dello stack per 
muovere 1 dati. E’ stato scelto perche’ illustra un’ampia gamma 
di tecniche, senza diventare troppo astruso. 

E’ sempre consigliabile salvare gli schermi su nastro prima 
di far correre un tale programma. Un piccolo errore nella 
battitura può’ causare il blocco del sistema o qualche altra 
disfunzione, e tutti i dati memorizzati possono allora andare 
persi. 
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HANOI-r TITLE -WAIT 


\— INIT 


KMOVÉ 


'—ASK 


-ENQUIRE 

— LINEDRAW 

— PILEDRAW 
WAIT 


-CHECK — 
-GENI — 
-GEN2 
•—TRANSFER- 


SETUP 


ADJUST 


A! 


-A@- 


-A@- 


-30VER 


-DDRAW' 


-AGET— 

-AGET— 

-AGET— 

-30VER 

.DSIZE 
-AGET— 
-XPOS 
-YPOS 
■XPOS 
[—YPOS 
L-DSIZE 
30VER 
AGET- 
30VER 


I 


PILE 

PILE 

PILE 

PILE 


PILE 


PILE 
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SCR 

« 

1 

0 

( 

LA TORRE DI HANOI: 1) 

1 

* 

TASK ; 

2 

0 

VARIABLE DSIZE 

3 

0 

VARIABLE XPOS 

4 

0 

VARIABLE YPOS 

5 

0 

VARIABLE PILE 4 ALLOT 

6 


30VER >R OVER R> SWAP ; 

7 


AGET PILE SWAP 2 ♦ + ; 

8 


A! AGET ! ; 

9 


A@ AGET © ; 

10 


DDRAW 1 GOVER 6 0 DO 

11 


XPOS e DSIZE © - 

12 


YPOS © I + PLOT 

13 


XPOS © DSIZE © 4 

14 


YPOS © I 4 DRAW 

15 


LOOP 0 GOVER ; ~> 

SCR 

« 

2 


0 < LA TORRE DI HANOI: 2) 

1 : SETUP OVER OVER 

2 3 ♦ DSIZE ! 

3 DUP Ag 

4 1 + 8 =r YPOS ! 

5 88 ♦ 43 + XPOS ! 

G DDRAW ; 

7 : ADJUST OVER AGET -1 SWAP +! 

8 30VER AGET 1 SWAP +! 

9 : WAIT 20000 0 DO LOOP ; 

10 : ENQUIRE 2 0 CLS 10 5 AT 

11 .* Quanti dischi ?" 

12 QUERY INTERPRET 

13 2 MAX 12 MIN ; 

14 : CHECK 0 A® 1 A@ + ; 

15 --> 


SCR # 3 

0 < LA TORRE DI HANOI: 3) 

1 : LINEDRAW 1 INK CLS 20 0 AT 

2 _1_2_3 

3 : PILEDRAW 3 0 DO 0 I A! LOOP 


2 INK 
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4 OVER OVER DUP 0 DO 

5 0 AGET 1 SWAP +! 

6 I - SETUP DROP OVER 

7 LOOP DROP DROP ; 

8 : GENI 30VER 3 SWAP - 30VER 

9 - 30VER 30VER 1 - ; 

10 : GEN2 ROT DUP >R 3 SWAP - 

11 ROT - R> SWAP ROT 1 - ; 

12 : TRANSFER SETUP ADJUST 30VER 

13 SWAP SETUP SWAP DROP ; 

14 : INIT ENQUIRE LINEDRAW 

15 PILEDRAW WAIT ; —> 

SCR # 4 

0 ( LA TORRE DI HANOI: 4) 

1 : TITLE CLS 10 0 AT 

2 .* LA TORRE DI HANOI* WAIT ; 

3 : NOVE BEGIN CHECK WHILE 

4 BEGIN DUP 1 > WHILE 

5 GENI 

6 REPEAT 

7 BEGIN 

8 CHECK IF TRANSFER ENDIF 

9 DUP 1 > NOT WHILE 

10 DROP DROP DROP 

11 REPEAT GEN2 

12 REPEAT * 

13 : ASK 0 0 AT ’* Ancora ?* KEY 89 - 

14 : HANOI TITLE BEGIN INIT 

15 MOVE 0 INK ASK UNTIL ; 
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CARITOLO VI 

L-a comis 1 1 asT 1 one 

Questo capitolo tratta delle parole che vengono usate nella 
compilazione, e illustra alcuni dei modi meno ovvi nei quali 
tali parole possono essere usate. 

L.A COMRI LAZriOME 

Quando il sistema e’ in modo compilazione, la maggior parte 
delle parole che trova nel corso dell'Input vengono incorporate 
nella nuova parola che entra nel dizionario, e l’indirizzo del 
suo campo codice viene aggiunto al nuovo campo parametri. Alcune 
parole, tuttavia, sono trattate in modo differente. 

Le parole che hanno il "bit precedenza* nel byte lunghezza in 
condizione di verità’, non sono compilate, vengono eseguite. Per 
esempio, la definizione della parola DO e’; 

COMPRE <D0> 

MERE 

3 

La prima linea inserisce l’indirizzo del campo codici per 
(DO) nel campo parametri e MERE quindi salva il contenuto del 
puntatore del dizionario per un uso successivo, essendo il 
contenuto presente nello stack. Quindi viene messo 3 nello 
stack, essendo il numero di controllo per la combinazione 
DO-LOOP. 

La definizione di LOOP e’: 

3 7PAIRS 
COMPRE (LOOP) 

BACK 

Viene messo un altro 3 nello stack e ?PAIRS lo confronta con 
20S, che dovrebbe contenere il 3 lasciato da DO. Se non e' 
cosi’, allora e’ stato fatto qualche errore, ad esempio nel 
bilanciare un altro tipo di ciclo. 

Se la comparazione mostra una corrispondenza, l’indirizzo del 
campo codici per (LOOP) viene aggiunto al nuovo campo parametri 
e quindi viene chiamato BACK. Questi ancora chiama MERE per 
mettere il contenuto del puntatore del dizionario nello stack, 
ed esegue una sottrazione. Il risultato viene scritto nel nuovo 
campo parametri, essendo l’ampiezza del salto necessario a 
raggiungere un punto immediatamente dopo il (DO). 

Procedimenti slmili vengono applicati alle altre combinazioni 
di ramificazione e di rlcorslone. 

Anche due punti e punto e virgola hanno il bit precedenza 
vero. I due punti, prima controllano se il sistema si trova nel 
modo esecuzione diretta, giacche’ non sono ammessi nel modo 
compilazione. Quindi il puntatore dello stack corrente viene 
salvato in CSP (Current Stack Pointer) e CONTEXT viene messo 
uguale a CURRENT per assicurarsi che venga usato il valore 
esatto del puntatore del dizionario, mettendo la nuova parola 
nel vocabolario selezionato. CREATE definisce quindi 1 primi due 
campi della nuova parola. Il campo codici viene fatto puntare a 
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una corta routine in linguaggio macchina che stabilisce le 
condizioni per l’interpretazione del campo parametri, salvando 
il valore del puntatore dell'istruzione corrente nel Return 
Stack e mettendo il puntatore ad un nuovo valore, l'Inizio del 
campo parametri. Il puntatore dell’istruzione viene usato per 
leggere l’indirizzo associato e altri dati necessari 
all’esecuzione. 

Il punto e virgola fa il processo Inverso. Si aspetta che il 
puntatore dello stack sia tornato al valore salvato in CSP dai 
due punti e genera un messaggio d’errore se non e’ cosi’. Quindi 
viene compilata ;S nell’ultima posizione del campo parametri, il 
bit "macchia" viene posto nello stato valido e viene ripresa 
l’esecuzione diretta. Quando viene eseguito, :S rimuove 
l’indlrzzo associato di ritorno dal Return Stack e lo mette nel 
puntatore dell’istruzione. 

Per la maggior parte degli scopi, non e’ necessario ricordare 
tali processi ma questi possono essere importanti se usate 
trucchi per la definizione di nuove parole. Alcune delle 
definizioni date nell’Appendice A sembrano abbastanza semplici, 
ma se tentate di compilarle direttamente noterete il si tema 
fa obiezioni. 

Considerate, per esemplo, le parole formate da parentesi 
quadre. Il processo dei due punti usa 1 per abilitare il modo 
compilazione e il punto e virgola usa [ per ritornare 
all’esecuzione diretta. Tutto do’ che fanno queste parole e’ di 
cambiare il valore della variabile STATE , ma sono comunque 
molto utili, permettendo un interludio all'esecuzione in diretta 
nel mezzo di un processo di compilazione. Ciò’ potrebbe venir 
usato per calcolare un valore critico che dipende da una parola 
compilata precedentemente. 

I due punti usano anche ;C0DE, che compila <:C0DE). Quando 
viene eseguito, (:COOE> fa puntare, al campo codici della parola 
compilata piu’ di recente, a una routine in codice macchina che 
segue ;CODE . Nel caso del due punti, l’effettivo codice 
macchina viene chiamato da tutte le definizioni che hanno un 
reale campo parametri. Se fosse disponibile un assembler, 
verrebbe inserito automaticamente per definire il codice in 
questione. In sua assenza possono essere usate le parole , e C,. 
La virgola memorizza TOS nella prossima locazione del 
dizionario, mentre C, memorizza solo il byte basso di TOS. 
Usando queste due parole sarebbe possibile definire una nuova 
parola direttamente, ma sarebbe un notevole spreco di tempo e di 
fatica. Tuttavia, e’ a volte utile usare le parole per definire 
un dato od un’associazione specifica all’interno di un campo 
parametri, o un dato all’interno di un array. In quest’ultimo 
caso non e’ necessario usare ALLOT per far posto all’array 
poiché’ la virgola e C, avanzano entrambi il puntatore del 
dizionario alla prima locazione vuota. 

Forse la parola piu’ bizzarra nel FORTH e’ quella con un 
campo nome che contiene CI 80 . Lunghezza di una lettera, in 
al Ve parole, tale lettera ci viene resa nota da 80H-80H=0 
Viene usato un codice nullo per terminare gli schermi e 1 
bufferà, e per fermare l’interpretazione. Se viene 


74 



accidentalmente inserito un codice nullo nel mezzo di uno 
schermo, sara* Impossibile Interpretare lo schermo oltre quel 
punto. 

LATEST mette nello stack l’indirizzo del campo nome della 
parola del dizionario definita piu’ di recente. Questa viene 
usata da IMMEDIATE , che definisce 11 bit precedenza per quella 
parola, permettendo di definire quelle parole che saranno 
eseguite nel modo compilazione. 

D’altro canto, ICOMPILEl causerà’ la compilazione della 
parola seguente anche se ha vero 11 bit precedenza. Le 
possibilità’ aperte da questa parola possono disorientare, in 
principio. E’ possibile vlsullzzare le parole che definiranno 1 
cicli DO o le altre funzioni di ramificazione e ricorslone. 
Tuttavia, l’esemplo classico e’: 

; XXXX ICOMPILEl FORTH ; 

Senza ICOMPILEl, la parola FORTH sarebbe eseguita quando 
fosse compilato XXXX, lasciando XXXX Inattiva. Polche’ c’e’, la 
definizione tramite due punti sara’ equivalente a FORTH e 
l’esecuzione di XXXX selezionerà’ il vocabolario FORTH. In un 
senso, ICOMPILEl rimanda l’azione della parola sulla quale 
agisce, rendendola effettiva al momento dell’esecuzione, 
piuttosto che durante la compilazione. ‘ 

Poi abbiamo due parole importanti che raramente vengono 
esaminate, LITERAL e DLITERAL. Vengono chiamate quando INTERPRET 
trova «un numero nell’Input. Nel modo diretto, non fanno niente, 
giacche’ il numero viene messo nello stack e li’ rimane. Nel 
modo compilazione, LITERAL compila LIT e poi usa la virgola per 
trasferire il numero dallo stack al campo parametri. Quando il 
campo viene interpretato, LIT trasferisce il numero di nuovo 
nello stack. DLITERAL agisce in modo slmile ma compila LIT , 
quindi TOS, ancora LIT , poi 20S. Come suggerisce la D, e’ usata 
per trattare numeri doppi. CREATE definisce i primi due campi di 
una nuova parola, usando WIDTH per controllare che la lunghezza 
della parola sia entro limiti validi. WIDTH e’ una variabile, 
generalmente posta a 31. 

La parola ’ e’ utile a volte nella forma: 

’ XXXX 

nell’esecuzione diretta, mette l’indirizzo del campo parametri 
di XXXX nello stack. Nella compilazione, trasferisce l’indlzlzzo 
come fosse la parola LIT inserita nel nuovo campo parametri. 

A questo punto e’ necessario chiamare un’interruzione. Le 
parole che sono piu’ di frequente usate in modo diretto nel 
processo di compilazione sono già’ state descritte, con 
un’eccezione, che e’ abbastanza complessa da meritare un 
paragrafo a parte. 

Un fascino e una frustrazione del FORTH e’ che ci sono molti 
trucchi sottili ed esoterici con 1 quali potete giocare, cosi’ 
tanti che non avrebbe senso tentare di spiegarli tutti. I 
programmi forniti in questo libro, danno alcuni esempi, ma senza 
l’intenzione di coprire l’intera gamma di possibilità’. Dovete 
inventare voi stessi le vostre soluzioni, visto che 
probabilmente esse sono volte a risolvere problemi che non sono 
abbastanza comuni da avere risposte già’ pronte. 
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<BUiL.DS. - .doe:s> 


E’ stato detto che la combinazione <BUILD...DOES> e’, sla una 
delle caratteristiche piu’ potenti del fig-FORTH, che una delle 
piu’ difficili da spiegare. E’ uno strumento usato per eseguire 
processi complessi che creano altri strumenti. Ecco un esempio: 

: ARRAY <BUILDS 2 * ALLOT D0ES> SWAP 1 - 2 » + ; 

Questo crea una nuova parola, ARRAY, che può’ essere usata 
come segue; 

8 ARRAY HEAP 

Questo creerà’ un’array con spazio per nove parole a due 
bytes, l’B specificato piu’ uno, forma la variabile di base, 
come nel semplice metodo di creazioni degli array già’ discusso. 
Tutto questo e’ ottenuto con 2 » ALLOT che segue <BU1LDS , ma 
c’e’ di piu’. Se chiamiamo 5 HEAP , le parole che seguono DOES> 
decrementeranno 5 a 4, raddoppieranno il risultato e 
aggiungeranno l’Indirizzo di base dell’array. Cosi’ n HEAP 9 
leggera’ l’ennesimo elemento dell’array, n HEAP ? visualizzerà’ 
tale elemento e m n HEAP ! metterà’ l'elemento a m. 

La parola ARRAY rimane disponibile come strumento per creare 
ulteriori arrays in modo slmile. Si sara’ notato che questo 
risparmia un mucchio di problemi rispetto al metodo Illustrato 
in precedenza. 

Il concetto da afferrare e’ che le parole che seguono <BUILDS 
vengono usate per determinare la forma di base della nuova 
parola, mentre le parole che seguono D0ES> determinano il 
processo che sara’ ad essa associato. 

Ecco un esempio piu’ complesso che gestisce arrays 
bidimensionali e controlla gli indici per assicurarsi che non 
siano fuori dai limiti definiti dalle dimensioni date. Vengono 
coinvolte tre nuove parole, e la compilazione e’ eseguita con 
selezionata la notazione esadecimale per ragioni di convenienza 
e di chiarezza. 

HEX 

: OFB ." Fuori dai limiti dell’array. " SP! QUIT ; 

: OFBCK >R ROT ROT DUP R> DUP FF AND ROT < IF OFB ENDIF 

100 / >R OVER R> DUP ROT < IF OFB ENDIF ; 

: ARRAY2 <BUILDS FF AND DUP C, SWAP FF AND DUP C, * 2 » 

ALLOT D0ES> DUP 0 OFBCK SWAP 1 - * + + ; 

Con queste parole definite viene creato un’array con le 
dimensioni x e y tramite: 

X y ARRAY2 MATRIX 

Le dimensioni vengono memorizzate all’inizio dell’array e il 
numero di bytes riservato e’ 2*x»y. Tutto do’ viene determinato 
dalle parole che seguono <BUILDS. Le parole che seguono DOES> 
hanno effetto quando viene eseguita MATRIX. Notate che x e y 
vengono memorizzate da C, e dunque occupano un byte ognuna. DUP 
0 le mette entrambe in TOS , preservando l’indice dietro di 
loro, OFBCK viene quindi chiamato per confrontare gli indici con 
X e y e per avvertire se sono fuori dai limiti. Trovate 1 
cambiamenti dello stack, ma ricordate che viene usata la 
notazione esadecimale cosicché’ una divisione per 100 e’ in 
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realta’ una divisione per 256, che porta il byte superiore di 
TOS nella posizione del byte inferiore. 

Questi esempi illustrano l'uso di <BUILD...00ES> in un 
contesto particolare, ma il concetto generale dovrebbe essere 
abbastanza chiaro. Parlando in generale, <BUILD stabilisce una 
costante, e il codice seguente estende la compilazione. D0ES> 
usa un segmento standard di codice macchina per eseguire un 
piccolo gioco di prestigio cosi’ che le parole che seguono siano 
aggiunte alia parola creata con <BUILDS. 

Ci sono altri modi di creare strumenti di compilazione, ma il 
modo migliore di impararli e' di tentare varie combinazioni e di 
controllare le definizioni che risultano. 

leggere: il DisriorMARio 

E’ a volte utile poter vedere come sono state inserite nel 
dizionario le parole che abbiamo definito. Per ciò’, c’e’ uh 
semplice programma; 

: SCAN BEGIN CR 

DUP 0 2+ NFA IO. 

KEY CASE 

68 OF 2+ DUP 0 U. 2+0 ENDOF 

69 OF 1 ENDOF 

70 OF 2+ 0 ENDOF 
ENDCASE UNIIL ; 

: $ -FINO gUERY INTERPRET 
IF DROP CLS SCAN 
ELSE .* NON TROVATA " ENDIF ; 

Inserendo $ seguito, dopo uno spazio, dal nome della 
definizione che volete esaminare e premete return due volte. Il 
primo nome apparirà’ sullo schermo in alto. Premete F per avere 
il prossimo nome, a meno che il primo sia BRANCH, 0BRANCH, LIT, 
(LOOP) o <+L00P). A tutti questi seguono parole di dati, e 
questi e le prossime parole possono essere ottenute premendo D. 
Per uscire premete E. La fine della definizione e’ in genere 
marcata ;S . Se continuate dopo di questa, vi possono succedere 
le cose piu’ strane. 

Sarebbe simpatico, naturalmente, far chiamare a nomi speciali 
le azioni appropriate, cosi’ che sia tutto automatico, ma ci 
sarebbe ancora un problema con (.*) , che e’ seguito da testo. 
Per continuare, sarebbe necessario fare una scansione attraverso 
il testo, che non sarebbe troppo difficile. Se volete usare 
parecchio la routine, dovreste essere in grado di trovare il 
modo di renderla piu’ automatica. 

Considerando l'ampiezza dei salti, ricordate che 
rappresentano un numero di bytes, e ogni parola o dato associato 
occupa due bytes. Una ampiezza di dieci, andra’ dunque avanti di 
cinque dati. 

Una piccola stranezza. E’ necessario caricare i programmi di 
cui sopra in decimale, polche’ ci sono 1 codici ASCII 68, 69, e 
70 in tale forma. Il programma, d’altra parte e’ meglio che sia 
eseguito in esadecimale (HEX), Come vi assicurereste che vengano 
rispettati questi requisiti?. 


77 



ANCORA SULLA COMRILA2IONE 


Il sistema normale di compilazione tiene automaticamente conto 
del progressi della compilazione, e quando provate metodi meno 
diretti dovete essere preparati a fare altrettanto. Dovete 
esaminare la struttura dettagliata delle parole che usate, e 
questa e’ una delle ragioni per le quali e’ stata fornita 
1'Appendice A. 

Nella sezione dell’appendice che copre il vocabolario EDITOR, 
troverete una piccola stranezza. Le parole Rei sono state 
rldeflnite, ma le definizioni che seguono hanno il significato 
precedente. Per ottenere questo tipo di trucchi e’ solamente 
necessario inserire la parola FORTH in un punto adatto, 
dopodiché’ verrà’ compilata la versione FORTH della parola. La 
parola EDITOR assicurerà’ piu’ tardi che la definizione continui 
sulla base delle parole EDITOR già’ definite. 

Per definire un vocabolario speciale dovete prima stabilire 
la parola SPECIAL (o in qualsiasi modo lo vogliate chiamare) 
inserendo; 

VOCABULARY SPECIAL 

che inserisce una parola nel vocabolario FORTH. Per 
selezionare il vocabolario SPECIAL dovete fare: 

SPECIAL DEFINITIONS 

Le parole definite d’ora in poi verranno messe nel 
vocàbolario SPECI AL. 

Perche’ avere un vocabolario speciale? Una buona ragione e’ 
che un vocabolario troppo grande rallenta la compilazione, ed 
accedere ad un vocabolario specializzato può’ essere molto piu’ 
veloce. Potreste anche voler usare le stesse parole per altri 
scopi, come nell'EDITOR. 

Avendo compilato un programma, potreste trovar noioso il 
fatto che questi debba essere ricompilato ogniqualvolta lo 
volete eseguire. Non c’e’ bisogno di questo. Potete savare 
l’intero dizionario esteso, includendo il vocabolario originale, 
in una operazione. 

Per far ciò’, dovete prima sapere quanto salvare, e SIZE vi 
dara’ tale informazione. Dovete poi alterare le locazioni che 
forniscono i dati di inizializzazione, in modo che si tenga 
conto dell’estensione del dizionario. 

Il primo passo e’ assicurarsi che non ci si trovi in un 
vocabolario speciale, inserendo: 

FORTH DEFINITIONS 

Poi, e’ una questione di gusti, mi sembra piu’ facile 
definire HEX, visto che stiamo trattando di indirizzi e 
spiazzamenti, che di solito sono piu’ familiari in esadeclmale. 

LATEST contiene l’indirizzo del campo nome dell’ultima parola 
definita nel dizionario, e tutte le ricerche iniziano da 
quell’indirizzo, che deve essere posto in 5E4C: 

LATEST 0C + ORIGIN ! 

Poi il puntatore del dizionario deve essere copiato in 5E5C e 
5E5E: 
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MERE IC + ORIGIN ! 

NERE lE + ORIGIN ! 

Se volete proteggere 1 vostri programmi dovete muovere FENCE 
alla stessa posizione; 

HERE FENCE ! 

Per finire dobbiamo fare: 

’ FORTH 8 + 20 + ORIGIN ! 

Questo mette il PFA della parola FORTH,piu’ 8, in 5E60. 

Il programma emendato può* essere dunque salvato usando la 
linea 9 del rudimentale programma BASIC, opportunamente alterato 
per tener conto di SI2E. Dopo la verifica, il programma e’ 
pronto per essere caricato al posto del nastro FORTH originale, 
il quale dovrebbe comportarsi come faceva prima di essere 
salvato. 

Questa tecnica e’ particolarmente utile se avete creato 
vostre estensioni del FORTH per uso generale. 
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CARIXOLO VII: 


Tocnlchs di R jr*og jraimmaz 1 o ne 

Questo capitolo tratta di alcune delle tecniche piu’ complesse 
che possono essere utilizzate nella stesura del programmi. 


ARITMETICA NON INTERA 


Se trovate troppo limitante l’aritmetica Intera, guardate la 
definizione di DRAW nell’Appendice A (Parola del Dizionario No. 
447). Essa lavora con Incrementi di 0.0000152. 

Il metodo usato consiste mel trattare un numero doppio come 
se fosse scalato di un fattore 1/65536. Per esemplo, la parola 
LASTY viene letta dalla parola BASIC spazio ed e’ quindi 
convertita In un numero doppio con l’aggiunta di una parola 
Inferiore uguale a zero - no, non una parola superiore, una 
parola inferiore. In termini Interi, 11 risultato e’ LASTY»65536 
che viene memorizzato nella variabile Y1. La versione scalata di 
LASTX e’ analogamente memorizzata In XI. 

Le coordinate di posizione richieste, vengono quindi 
confrontate con LASTY e LASTX nella loro forma non modificata 
per determinare quanti passi sono necessari per disegnare la 
linea. Sara’ o ABS<X-LASTX> o ABS<Y-LASTY>, il piu’ grande del 
due. L’Incremento nominale del valori di X e Y viene calcolato 
dividendo 65536 volta 1 cambiamenti totali per 11 numero di 
passi. Viene usato M/MOD , con vie alternative per tener conto 
di differenze positive e negative, e 11 risultato viene 
memorizzato In INCX e INCY come numeri doppi. 

Siccome 1 valori correnti di x e y e gli Incrementi relativi 
sono stati moltipllcati per 65536, e’ possibile aggiungere gli 
incrementi al valori originali ripetitivamente, per definire 1 
nuovi valori di x e y, ma devono essere letti solo 1 bytes 
superiori di x e y, essendo la parte Intera del numeri. 

Questo semplice ma efficace approccio può’ essere usato 
quando e’ richiesto 11 risultato finale In forma Intera. Se si 
vogliono cifre decimali, sono necessari processi piu’ complessi. 
Lavorare In virgola fissa e’ un concetto abbastanza lineare, ma 
ha delle complicazioni nel dettagli. Lo schema e’ di adottare un 
numero fisso di decimali, diciamo due. In questo caso, tutti 1 
numeri saranno moltipllcati per 100, come fattore di scala. 
Quando viene Inserito un numero, sara’ normalmente Incluso 11 
punto decimale, e 11 valore risultante di OPL sara’ annotato ed 
usato per eseguire tutte le necessarie correzioni. Con un Input 
di 23.0, d’altra parte, sarebbe richiesta una moltiplicazione 
per dieci. 

I numeri modificati possono essere sommati o sottratti senza 
difficolta’ polche’ hanno la stessa scala, ma le routlnes di 
moltiplica e divisione devono essere modificate. Dopo che due 
numeri sono stati moltipllcati, 11 risultato deve essere diviso 
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per 100, altrimenti quel moltiplicatore sarebbe applicato due 
volte. Prima di una divisione, 11 dividendo deve essere 
moltipllcato per 100, oli fattore di scala verrebbe perso. 

L’output del risultato finale richiede solo che 11 punto 
decimale sla posto nella posizione corretta. 

SI deve fare attenzione a possibili overflow. Una semplice 
moltiplicazione di 10 per 20 diventa una moltiplicazione di 1000 
per 2000 e 11 risultato prima della correzione e’ 2’000’000, 
corretto a 20*000. I numeri doppi seguiranno chiaramente la 
regola, e anche questi strariperanno con un valore non corretto 
di circa 2’000’000’000 dando un valore correte di 200*000.00. Se 
venisse usato un fattore di scala maggiore di 100, la 
limitazione del valore massimo aumenterebbe. 

La soluzione si trova nelle parole triple, che richiedono 
un’intera nuova famiglia di manipolatori e di operatori. 

Alternativamente, può* essere considerata una forma di 
virgola mobile. Ciò* sarebbe Inevitabilmente molto piu* lento 
che non operarndo con numeri Interi ma aprirebbe nuove 
possibilità’. 

Un sistema a singola precisione può* essere basato su un 
numero doppio con gli otto bits superiori utilizzati come 
esponente e 1 rimanenti 24 utilizzati come mantissa. Questo 
corrisponde al tipico sistema BASIC della precisione singola. La 
mantissa e* sempre "mormalIzzata* cosi* che 11 suo bit piu* 
significativo e* sempre vero, essendo l’esponente decrementato 
quando la mantissa e* scalata (shlfted) a sinistra e 
incrementato quando e* scalata a destra. Ci devono essere due 
bits per 1 segni, uno della mantissa e uno dell’esponente. 
Siccome 11 bit piu* significativo della mantissa e* sempre 1, 
vero, viene talvolta usato per contenere 11 bit segno della 
mantissa. 

Per l’addizione e la sottrazione, e* necessario eguagliare 
gli esponenti del due numeri in causa, Incrementando l’esponente 
minore e decrementando l’esponente associato. Per la 
moltiplicazione gli esponenti vengono sommati e le mantisse 
moltipllcate. In un modo o nell’altro, la virgola mobile e* 
complessa e non cl si deve avvicinare ad essa a cuor leggero. 

Coloro che hanno studiato 11 funzionamento Interno del BASIC 
Spectrum possono essere In grado di usare la routine per virgola 
mobile contenuta In esso, ma l’approccio ad essa e’ troppo 
complesso per essere studiato qui. E’ utile tenere a mente, 
tuttavia, che la ROM BASIC contiene molte routlnes che 
potrebbero essere incorporate nel PORTH se venissero trovate le 
tecniche adatte. 

In particolare, sarebbe bello poter accedere alle funzioni 
esponenziali e trigonometriche. E’ possibile eseguire tali 
funzioni In FORTH, ma solo In modo relativamente crudo. La 
radice quadrata può’ essere calcolata tramite l’Iterazione di: 

Sm-l =1/2(X/Sh +Sii ) 

Dove So e’ un valore arbitrarlo e Sn e’ una approssimazione 
della radice quadrata di X. Quando Sn e’ troppo grande, viene 
approssimativamente dimezzato ad ogni iterazione. Quando e’ 
troppo piccolo viene aumentato. Approssimativamente, K+2 
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iterazioni produrranno generalmente un risultato ragionevolmente 
accurato per numeri fino a 2''k, se So viene posto uguale a 
2"K/4. 

Un punto interessante che ne deriva, e’ che i calcoli 
trigonometrici possono talvolta essere rimpiazzati da una 
tecnica basata sui vettori. L'idea e’ che le coordinate x e y 
possono essere combinate in un singolo vettore R 
dall'espressione : 

R*=SQR<a* + b*> 

L'angolo effettivo può' essere espresso da a/b, e questo, con 
R, specifica completamente il vettore risultante. I vettori 
possono essere sommati o sottratti sommando e sottraendo i 
valori a e b, ed e' possibile in tal modo eseguire operazioni 
come definire una circonferenza- ma per fare ciò', sono 
necessari calcoli in virgola mobile. 


UM PROGRAMMA FINALE 


Come ultima dimostrazione di alcune tecniche assortite del 
FORTH, ecco, per finire, un programma piuttosto vasto. Gioca a 
zero e croce® tridimensionale con considerevole successo, 
anche se può' essere battuto, se sapete come fare e avete 
abbastanza concentrazione da tener d’occhio quello che fa il 
computer. 

Sinceramente, e' il mio programma preferito avendolo scritto 
e riscritto per un'intera schiera di computerà, includendone 
alcuni che erano stati progettati per compiti molto piu’ seri. 
In codice macchina, le decisioni necessarie vengono prese in una 
frazione di secondo, ma in BASIC possono richiedere ben oltre un 
minuto. La versione FORTH richiede circa quindici secondi, il 
che e' appena accettabile, ed e’ almeno cinque volte piu' veloce 
del BASIC. 

La ragione per cui e' richiesto tanto tempo risiede 
semplicemente nella vestita’ dei calcoli implicati. In primo 
luogo, le dimensioni del programma vengono accorciate facendo a 
meno della solita tabella delle linee possibili nell’ambito 
della matrice cubica e al computer viene chiesto di calcolare 
queste linee da regole predefinlte. Per ogni posizione data sono 
coinvolte sei o otto linee, e ci sono sessantaquattro posizioni. 
Devono essere controllate quattro posizioni per valutare lo 
stato di ogni linea. 

Una volta che il contenuto della linea sia stato elaborato ed 
espresso in un codice numerico, deve essere valutato il livello 
di priorità’ per la linea e aggiunto al totale perche’ venga 
studiata la posizione; e questo deve essere ripetuto per ogni 
linea che passa attraverso quella posizione. Per finire deve 
essere trovata la priorità’ maggiore. 

Il diagramma del display aiuterà’ a spiegare alcune delle 
variabili. Vengono usati i numeri da 1 a 3 per le coordinate; 
alcuni giocatori potrebbero preferire 1 numeri da 1 a 4, nel 
qual caso basterà’ una semplice sostituzione alla routine 

s Gioco timilo al noctro tris eho si svolga su una seacehiara di 4x4 easalla. caso specifico si gioca in tra dlmansioni, dunque in un 
cubo ideale di 4x4x4 caselie. IN J.T.) 
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INPROC. I numeri vengono Inseriti nell’ordine VD, VF e VR. La 
posizione indicata verrà’ evidenziata sul video e vi sara’ data 
la possibilità’ di cambiare idea prima che l’inserimento venga 
tatto effettivamente. 


•8 


•'12 


•24 


•28 


•40 


•44 


•56 


•60 


VR = 0 


•0 

•4 *5 

•9 

•13 •U 

•16 

•20 ^21 

•25 

•29 •ao 

•32 

•36 *37 

•41 

•45 ^46 


•48 


•52 ^53 

•57 

•61 ^62 


1 2 3 

/ / / 


•1 •a •a VF = 

•6 •? 

•10 •Il 

•15 

•17 •la •IO 

022 ^23 

•26 *27 

X31 

•33 ^34 •aa 

•38 •ao 

•42 ^43 

•47 

•49 •ao •ai 

•54 ^55 

•58 ^59 

•63 

0X3 Formato video e coordinate 


0 

1 

2 

3 

0 

1 

2 

3 

0 

1 

2 

3 

0 

1 

2 

3 


VD = 0 


1 


2 


3 


CH e’ il numero della posizione, usato principalmente per il 
riferimento all’array e per segnare l’ultimo inserimento; e’ 
uguale a 16»VD+4»VF+VR. 

Quindi vengono quattro flags , un contenitore temporaneo per 
la priorità’, e una variabile OL che viene usata per trovare la 
priorità’ maggiore. 

Ci sono 4 arrays. AE e’ un array a un byte che contiene 
l’inserimento di 0 e di X, AP e’ un array a una parola che 
contiene le piorita’, AX contiene le posizioni in una linea e AW 
e’ l’indice delle priorità’ e contiene il peso di ogni 
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configurazione di linea. Notate come viene definito AW, In modo 
slmile ad un’Istruzione BASIC DATA, ma con spazi da entrambi 1 
lati delle virgole. 

INIT cancella 1 flags e gli arrays e DISP rappresenta 11 
display. POSCAiC calcola 1 valori di VD ,VF e VR corrispondenti 
al valore di CH e viene usato da CURSOR, che evidenzia l’ultima 
posizione Iserlta come definito da CH, mettendo uno spazio 
Inverso In modo OVER. Polche' CURSOR segue sempre DISP questi 
sono combinati In PLAY. 

Vengono stabilite due posizioni sul video da PI e P2 e viene 
definito DR0P2 per scartare 11 20S. 

La routine di Input comincia con GETN , che attende il 
rilascio di un tasto, visualizza 11 carattere relativo e tenta 
di convertirlo in un numero In base 10. Il successo mette un 
flag vero in TOS, il numero In 20S e il codice Inserito In 30S. 
Se l’input non e’ numerico, TOS contiene un flag falso e 20S 
contiene il codice. 

INPOS definisce la posizione del display PI e chiama GETN 
Se il flag che ritorna in TOS e’ falso, 11 codice fornito da TOS 
viene controllato per vedere se e’ 82 ("R"), che chiama un altra 
partita. In questo caso viene definito BE e TOS viene messo a 1 
per uscire dalla routine a UNTIL. Se l’Input e’ numerico, 11 
codice viene scartato da DR0P2 e viene chiamato INPROC per 
ottenere 11 reato dell’Input, controllandone la validità’ ed 
offrendo la possibilità’ di cambiare idea prima di Inserire 
effettivamente uno 0 . Se vogliamo un limite di input di 1-4, 
Invece di 0-3, la posizione calcolata In INPROC deve essere 
cambiata In: 

ROT 1 - 16 » + 1 - SWAP 1 - 4 » + DUP AE + C@ 

INPOS ripete finche’ TOS contiene 1 quando viene raggiunto 
UNTIL. 

Poi viene la routine che calcola le priorità’. Viene chiamato 
CALC3 con 1’array AX messo alla posizione di una data linea. 
Questo controlla 11 contenuto di ogni posizione a turno, 
aggiungendo 1 per uno *0'’, 5 per un "X*. Ciò’ produce un numero 
caratteristico del formato di una linea. Per esempio, ad una 
linea che contiene OOX verrebbe assegnato 11 numero 7 
Guardando il settimo dato di AW notiamo che la priorità’ e’ 
zero, polche’ la linea e’ 'morta* contenendo sla *0* che "X*. 
Una linea contenente 0000, d’altro canto verrebbe rappresentata 
dal numero 4, e 11 quarto dato di AW e’ ancora 0 perche’ e’ 
troppo tardi per preoccuparsi di priorità’; 11 gioco e’ vinto. 
Se la linea contiene XXX, Il suo numero e’ 15 e questo da’ una 
priorità’ di 896, urge l’Inserimento di un X per vincere. 

Infatti, le priorità’ sono predeflnlte per risparmiare tempo. 
Se 11 numero della linea e’ 15, la posizione vuota viene 
localizzata e riempita, e 11 flag BX viene messo vero, cosicché’ 
la vincita di X sla dichiarata Immediatamente al ritorno. 


Analogamente, 

una linea con 

11 

numero 

4 mette 

BO vero per 

dichiarare vincitore lo 0. 






In generale 

, la priorità’ 

per 

la linea 

viene sommata 

a VP, 

che accumula 

le priorità’ 

per 

tutte 

le linee 

che 

passano 


attraverso un particolare punto. 
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CALC2 calcola le posizioni in una linea usando i dati forniti 
da CALCI . Ogni volta che viene chiamato CALC2, ci sono cinque 
numeri nello stack che esprimono la formula per una data linea. 
Per esempio, una linea verticale ha la formula: 

4»VF + VR + 16*n 
dove n va da 0 a 3. 

Siccome le routines di calcolo sono complesse e proclivi 
all’errore nel definire il codice sorgente, e’ utile definire 
una forma temporanea di CALC3 come segue: 

: CALC3 CR 4 0 DO 12 » AX + ? LOOP ; 

Questo dovrebbe essere definito dopo il vero CALC3 , ma prima 
di CALCI . Questo visualizzerà’ una lista di quattro o sette 
gruppi di posizioni a formare linee per ogni valore di CH. Ciò’ 
consente che possa venir fatto un controllo sul sistema di 
selezione della linea. 

Un punto importante che concerne queste routines e’ l’uso di 
I’ in CALC2 . Quando viene chiamata questa routine da CALC, 
viene messo un numero extra nel return stack ed e’ necessario 
scavare fino a 20RS per trovare il contatore del ciclo. 

Le routines di calcolo vengono chiamate da CALCP che 
scandisce attraverso tutti i valori di CH da 0 a 63, 
controllando la priorità’ contro ogni valore e inserendolo 
nell’array AP. La routine controlla anche se c’e’ uno stato vero 
in BO e 8X e, se uno di questi viene trovato, si esce dalla 
routine, saltando anche la successiva routine SELECT. 

Siccome CALC3 mette una priorità' zero per ogni locazione 
occupata, potrebbe sembrare utile a risparmiar tempo saltare la 
chiamata a CALCP per tali locazioni. Questa sembra una buona 
idea, ma non lo e’, perche’ significherebbe che una linea 0000 
non verrebbe mal scandita e la vittoria dell’O non verrebbe mal 
riconosciuta. . . 

La routine SELECT scandisce l’array AP mettendo OL al valore 
letto se e’ il piu’ alto trovato sino ad allora e definendo CH 
per un controllo. Idealmente, la scansione dovrebbe Iniziare in 
un punto a caso, e la casualità’ viene simulata mettendo 5G»VR 
nello stack, ma sarebbe meglio un vero numero casuale. Quando la 
scansione e’ completa viene definito il numero identificato da 
CH. Se OL e’ rimasto a zero, tutte le linee sono ‘'morte* e BD 
viene messo a 1 per segnalare che la partita e’ terminata in 
parità’. 

Per finire, la routine a livello superiore 0X3 deve unire 
tutte queste routines. Ci sono due cicli principali, uno per 
ogni gioco, che devono includere INIT e un ciclo interno per 
ogni turno di gioco. Dopo PLAY INPOS, viene fatto un controllo 
al flag di fine BE e, se e’ vero, vengono saltate CALCP e 
SELECT. La struttura CASE viene usata per controllare 1 quattro 
flags che riportano il risultato e alterano i valori dello stack 
per determinare se deve essere preso il ciclo interno o esterno. 
Nessun programma FORTH e’ mal perfetto, e questo non fa 
eccezioni. E’ stato scelto per sottolineare un certo numero di 
punti speciali e potete divertirvi a tentare di migliorarlo. In 
questo caso visualizzatelo per esteso sullo schermo per fare 
facilmente i cambiamenti, ma non siate troppo generosi. Avete 


86 



150 linee In dieci schermi e, cosi' com’e’ avete bisogno di 
circa 190 linee. Potreste usare due sets di schermi, ma questo 
pijo’ non essere conveniente. 


Un |=> jrog jraimmsi di 2ex'o & Cjrocce 
-tjr*ldlmenslonsile 


( 

0X3) 

TASK : 
VARIABLE 




0 

VR 


(Coordinate da sinistra a destra) 

0 

VARIABLE 

VF 


(Coordinate da dietro a fronte) 

0 

VARIABLE 

VD 


(Coordinate dall’alto al basso) 

0 

VARIABLE 

CH 


(Numero della posizione) 

0 

VARIABLE 

BO 


(Flag 0 VINCE) 

0 

VARIABLE 

BD 


(Flag DISEGNA) 

0 

VARIABLE 

BE 


(Flag fine) 

0 

VARIABLE 

BX 


(Flag X VINCE) 

0 

VARIABLE 

VP 


(Contiene la priorità’) 

0 

VARIABLE 

OL 


(Trova la priorità’ piu’ alta) 

0 

VARIABLE 

AE 

62 ALLOT 

(Array dello stato di gioco) 

0 

VARIABLE 

AP 

126 ALLOT 

(Array priorità’) 

0 

VARIABLE 

AX 

6 ALLOT 

(Array definizione linea) 

1 

VARIABLE 




AW 2 , 16 , 256 , 0 , 4 , 0 , 0 . ( 
896 , 0 , 0 , 0 , 0 , 0 , 0 , 0 
: INIT AE 64 ERASE AP 128 ERASE 

0 BE ! 0 BX ! 


0 , 32 , 0 , 0 , 0 , 0 
(Basi di priorità’) 


2 * SPACES 


DROP 


0 BO ! 0 BD ! 

DISP CLS 0 4 0 00 

4 0 DO 
CR 4 1 
4 0 DO 

DUP AE + C@ DUP 
IF EMIT 
ELSE 
ENDIF 
SPACE 
LOOP 
LOOP CR 
LOOP : 

POSCAL CH @ 16 /MOD VD 
CURSOR POSCAL VD 0 5 » 

VR 0 3 
AT 


(Cancella arrays e tlags) 
(Visualizza lo stato di gioco) 


SPACE 


1 


PLAY DISP CURSOR ; 
PI 9 18 AT ; 

P2 21 0 AT ; 

DR0P2 SWAP DROP ; 
QETN KEY DUP EMIT 
INPROC QETN 


! 4 /MOD VF 
VF 0 + 1+ 

* VF 0 2 » - 
GOVER 2 INK 
0 GOVER 0 INK 


DUP 10 DIGIT 


VR ! ; 

(Posizione Verticale) 
(Posizione orizzontale) 
(Posiziona il cursore) 


(Posizione 1 del testo) 
(posizione 2 del testo) 

(Accetta una cifra) 
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Ir DROP 2 GENTN (Se numerica scarta il codice) 

IF DR0P2 (Se numerica scarta il codice) 

ROT 16 ♦ + SWAP 

4 ♦ + DUP AE + C@ (Calcola la posizione, controlla) 


IF P2 .* Posizione 
ELSE CH ! PLAY P2 
E’ giusto? 
KEY 89 - 0= 
ENDIF DUP 
IF 79 AE CH 0 + C! 

P2 20 SPACES 
ENDIF 
ELSE 0 
ENDIF 
ELSE 0 
ENDIF ; 

: INPOS BEGIN 

PI GETN 

IF DR0P2 INPROC 
ELSE 82 - 0= 

IF 1 BE ! 1 
ENDIF 1 
ENDIF 
UNTIL : 

: CALC3 0 4 0 DO 

1 2 * AX + 0 
AE + C0 
79 - 0= 

IF SWAP 1+ SWAP 
ENDIF 


presa 

(Se e’ libera, definisci CH, 
visualizza) 

Lascia 0 se inserimento scorretto) 
(Duplica il flag) 

(Se e’ 1 inserisci l’O) 
(e cancella il messaggio) 

(Non numerico, lascia 0) 

(Non numerico, lascia 0) 


(Se numerico, scarta il codice) 
(Altrimenti controlla se e* *R*) 
(Se e’ "R*,BE=1,T0S=1) 

(Se e’ un'altra lettera, T0S=1) 

(Ripeti se TOS=0) 

(Leggi il numero della posizione) 
(Leggi 1 contenuti) 

(Controlla se e’ "O") 

(Se e’ *0'' incrementa TOS) 


88 - 0 = 

IF 5 + 

ENDIF 

LOOP 

AE CH 0 + C0 0= 

IF DUP 2 » AW + 0 
ENDIF 

DUP 4-0= 

IF 1 BO I 
ENDIF 


(Controlla se e’ "X") 

(Se e’ "X* aggiungi 5) 

(Numero della linea chiave in TOS) 
(La posizione CH e' libera?) 
VP + ! (Se e’ cosi’ somma priorità’ 

a VP) 

(Controlla se la linea e’ 0000) 

(Se e’ 0000 poni a 1 BO) 


15 - 0= (Controlla sa la linea e’ XXX) 

IF 8 0 DO (Se e’ XXX trova la posizione libera) 

I AX + 0 AE + C@ 0= 


IF AX I + 0 CH ! 

99 CH 0 AE + C! 
ENDIF 
2+ LOOP 
1 BX ! 

ENDIF ; 

: CALC2 VD 0 * SWAP 

VF 0 * + SWAP 
VR 0 * + SWOP 
I’ ♦ + + 


(Se e’ libera poni a 1 CH) 
(E inserisci X) 

(Poni a 1 BX) 

(Calcola la posizione) 
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AX I' + 2 * + ! : 

TAi n pn^fAi 

4 0 DO 0 1 0 4 16 CALC2 LOOP CALC3 

4 0 DO 0 4 1 0 16 CALC2 LOOP CALC3 

4 0 DO 0 16 1 4 0 CALC2 LOOP CALC3 

VP @ VR 9 - 0= 

IF40DO050016 CALC2 LOOP CALC3 
VD 0 VF 0 - 0= 

IF40DO021 000 CALC2 LOOP CALC3 
ENDIF 
ENDIF 

VD 0 VR 0 - 0= 

IF40DO17040 CALC2 LOOP CALC3 
VD 0 VF 0 + 3 - 0= 

IF 4 0 DO 12 13 0 0 0 CALC2 LOOP CALC3 
ENDIF 
ENDIF 

VD 0 VF 0 - 0* 

IF 4 0 DO 0 20 1 0 0 CALC2 LOOP CALC3 
VD 0 VR 0 + 3 - 0= 

IF40DO319000 CALC2 LOOP CALC3 
ENDIF 
ENDIF 


- 0 = 

0 0 16 


+ 3-0* 


GALOP 


VD 0 VR 0 + 3 - 0* 

IF 4 0 DO 3 15 0 4 

VF 0 VR 0 - 0* 

IF 4 0 DO 15 11 
ENDIF 
ENDIF 
VF 0 VR 0 

IF 4 0 DO 

ENDIF 
VD 0 VF 0 

IF 4 0 DO 12 12 1 0 0 
ENDIF ; 

1 0 CH ! 0 VP ! 

BEGIN 

CALCI BO 0 0= 

IF VP 0 AP CH 9 
0 VP ! 

BX 0 

IF DROP 0 64 
ELSE CH 0 DUP 1 
ENDIF 
64 - 0= 

ELSE DROP 0 1 
ENDIF 
UNTIL : 

SELECT BEGIN WHILE 
0 OL ! 

VR 0 56 » 

64 0 DO 
2+ 128 MOD 


CALC2 LOOP CALC3 
0 0 CALC2 LOOP CALC3 

CALC2 LOOP CALC3 
CALC2 LOOP CALC3 


2 » + 


+ CH 


<TOS=l,CH=0,VP=0> 

(Calcola la priorità’) 

(Se B0=0 mette prlor. In AP) 
(Azzera VP) 

(Se BX*1 cambia 11 flag a 1) 
(e mette a fine 11 contatore) 
! (Incrementa CH,lascia copia) 


(Se CH*64 lascia 1) 

(Se BO*0 cambia lo stack) 

(Se TOS*0 ripeti, altrimenti) 
(esce col flag per SELECT) 

(Lo salta se TOS=0) 

(Azzera la "priorità’ maggiore") 
(Numero quasi casuale) 

(Avanza puntatore Ih stack) 
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DUP AP + @ OL 0 > (Confronta AP<n) con OD 

IP DUP AP + 0 OL ! (Se AP(n) maggiore, 0L=AP(n>) 

DUP 2 / CH ! (E definisce CH dal TOS) 

ENDIF 

LOOP 

88 CH 0 AE + C! (Definisce la posizione "X* scelta) 
DROP 0 (Assicura che non ci siano ripetizioni) 

REPEAT 
OL 0 0= 

IF 1 BD ! (Se OL=0 poni a 1 BO) 

ENDIF ; 

: 0X3 BEGIN INIT (Punto di ricorsione del gioco) 

BEGIN PLAY INPOS (Fa la mossa) 

BE 0 0= (Controlla il flag fine) 

IF CALCP SELECT (Se BE=0 trova la mossa X) 

ENDIF 

0 0 P2 (Condizione CASE=0) 

CASE BE 0 0= OF 

DROP 1 ENDOF (Se BE=1, T0S=1) 

BD 0 0= 0F 

Gioco tracciato *(Se BD=1 riporta il disegno) 
DROP 1 ENDOF (e T0S=1) 

BO 0 0= OF 

.* 0 Vince “(Se B0=1 riporta 0 Vince) 

DROP 1 ENDOF (e T0S=1) 

BX 0 0= OF 

PLAY X Vince “(Se BX=1 riporta con display 

DROP 1 ENDOF e T0S=1) 

ENDCASE 
UNI IL 

PI Un’altra partita?* KEY 89 - 
UNTIL : 
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I contenuti del dizionario del FORTH Abersoft sono definiti in 
forma condensata. Le parti in codice macchina sono espresse in 
pseudo-codici relativi alle funzioni del processore Z80. I campi 
parametri sono tradotti dagli indirizzi del campo codice ai nomi 
di parole. Una determinata parola può’ essere localizzata 
facendo riferimento alla lista associata nell’indice principale. 

I registri dello Z80 vengono usati come segue: 

BC contiene il puntatore delle istruzioni (IP), che da’ 
l’indirizzo della prossima associàzione da implementare. 

DE viene usato per contenere i dati da mettere nello stack 
quando deve essere inserita (pushed) piu’ di una parola 
(il registro W del FORTH). Contiene inoltre i valori 
incrementali e l’ampiezza dei salti. 

HL viene usato per contenere 1 dati da mettere nello 
stack, il suo contenuto viene inserito dopo il contenuto 
di DE quando devono essere inserite due parole. 

IX contiene il puntatore dell’area utente. 

SP e’ il puntatore dello stack. 

Questi sono gli usi speciali dei registri. Tutti 1 registri 
possono essere utilizzati per altri scopi, se necessario. 

Le definizioni del dizionario non sono facili da seguire 
polche’ ci sono molti rimandi, ma questo e’ inevitabile. L’esame 
di alcune delle funzioni piu’ complesse spesso suggerirà’ 
formati utili per nuove parole. 

E’ utile ricordare che una parola deve essere definita prima 
che possa essere usata in ulteriori definizioni, cosicché’ 1 
costituenti di una definizione si troveranno sempre prima della 
definizione stessa. 

II programma FORTH comincia con un certo numero di variabili 
e di costanti. Benché’ queste non facciano strettamente parte 
del dizionario, sono necessarie per capire come operano alcune 
funzioni del dizionario. 


5E06 

S0 

5E08 

R0 

5E0A 

TIB 

5E0C 

WIDTH 

5E0E 

WARNINQ 

5E10 

FENCE 

5E12 

DP 

5E14 

VOC-LINK 

5E16 

BLK 

5E18 

IN 

5E1A 

OUT 

5E1C 

SCR 

SEIE 

OFFSET 


Contenuto iniziale del puntatore dallo stack 

Contenuto inlz. del puntatore del return stack 

Indirizzo del Buffer di Input terminale 

Lunghezza massima della parola 

Flag di controllo dei messaggi 

Limite di protezione del dizionario 

Puntatore del dizionario 

Indirizzo d’inizio delle ricerche nel voc. 

Numero del blocco 

Puntatore del buffer testo 

Puntatore dell’output 

Ultimo schermo usato 

Numero del set di schermi 
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5E20 

CONTEXT 

Indirizzo d’inizio del dizionario 

5E22 

CURRENT 

Indirizzo d’inizio dal dizionario 

5E24 

STATE 

Modo del sistema 

5E26 

BASE 

Base di rappresentazione numerica 

5E28 

DPL 

Locazione del punto decimale 

5E2A 

FLO 

Non usato 

5E2C 

CSP 

Contenuto del puntatore dello stack 

5E2E 

R« 

Editing del cursore, ecc. 

5E30 

HLD 

Indirizzo dell’ultimo carattere In output 

5E32 



5E34 



5E36 



5E38 



5E3A 



5E3C 



5E3E 



5E40 

00 


5E41 

C3 B0 6D 

Salto a COLO a 6DB0 

5E44 

00 


5E45 

C3 93 60 

Salto a WARM a 6D93 

5E48 

01 01 


5E4A 

00 0E 


5E4C 

49 81 


5E4E 

0C 00 


5E50 

66 5E 


5E52 

CB40 

Valore Iniziale per 5E06 

5E54 

CBE0 

5E08 

5E56 

CB40 

5E0A 

5E58 

001F 

5E0C 

5E5A 

0000 

5E0E 

5E5C 

8159 

5E10 

5E5E 

8159 

5E12 

5E60 

77AC 

5E14 

5E62 



5E64 



5E66 

CE00 

Sorgente per IX 

5E68 


Puntatore del return stack 


Comincia ora 11 dizionario vero e proprio. Per permettere 
possibili modifiche, 1 punti d’ingresso sono definiti tramite 
numeri d’associazione anziché’ con indirizzi, ma gli Indirizzi 
effettivi possono essere determinati abbastanza semplicemente 
con l’aiuto di -FINO. Le parole segnate con » vengono eseguite 
anche In modo compilazione. 

1 PUSHDE Mette (puah) 11 contenuto di DE hello stack 

2 PUSHHL Mette 11 contenuto di HL nello stack 

3 NEXTl HL^BC.BCcBC+2 

4 NEXT2 HL=<HL>.val a (HL) 

Dove, come sopra, le definizioni sono ravvicinate, esse 
vengono eseguite una dopo l’altra. PUSHDE e PUSHHL sono 
usati di ritorno da altri moduli per Inserire dati hello 
stack del calcolatore e quindi il puntatore Interpretativo 
IP (contenuto In BC) viene usato per vedere la successiva 



5 


6 

7 


8 


9 

10 


11 

12 


13 

14 


15 


associazione alla quale la routine salta. IP viene 
incrementato per puntare all’associazione per la prossima 
azione. Questo e’ il controllo centrale dell’intero 
sistema FORTH. 

LIT HL=<BC>.BC=BC+2.Val a PUSHHL 

La parola memorizzata nelle due locazioni che seguono 
l’associazione di LIT, viene letta in HL e messa nello 
stack. LIT, in effetti, Identifica la parola come dato, 
non come associazione. 

EXECUTE POP HL.Val a NEXT2 

Il TOS viene messo in HL <POP) come associazione alla 
routine da eseguirsi. 

BRANCH HL=BC.DE=<HL).HL=HL+DE.BC=HL.Val a NEXTl 

La parola memorizzata nella coppia di locazioni che 
seguono BRANCH viene sommata a IP, l’interpretazione viene 
ripresa all’indirizzo risultante. 

0BRANCH POP HL.Se HL=0 Val a BRANCH. 

Altrimenti BC=BC+2.Val a NEXTl 
Questo e’ il salto condizionale eseguito solo se TOS=0. 
Altrimenti il salto viene evitato incrementando IP. 

(LOOP) DE=1 

HL=<RSP).(HL)=<HL)+DE.DE=(HL) 

HL=HL+2,Se D era negativo, vai a 11. 
Altrimenti metti il flag segno a DE-<HL). 
Vai a 12 

Metti il flag segno a <HL)-DE. 

Se negativo vai a BRANCH 
Altrimenti HL=HL+2.<RSP)=HL 
BC=BC+2.Val a NEXTl. 

Questa e’ la forma compilata di LOOP. HL legge il 
puntatore del Return Stack e DE viene sommato a TORS. 
Viene quindi comparato 20RS con TORS tenendo conto del 
segno di DE (vedere (+LOOP> piu’ sotto). Se l’indice in 
TORS non ha passato ne’ raggiunto il valore limite in 
20RS, viene chiamato BRANCH per saltare a un punto 
immediatamente successivo a (DO), l’ampiezza del salto 
necessario e’ stata calcolata durante la compilazione. 
Altrimenti il RSP viene messo indietro di due parole, 
scartando, in effetti, le due parole relative. L’IP salta 
il dato che rappresenta l’ampiezza del salto e NEXTl 
continua l’azione. 

(+LOOP) POP DE.Val a 10 

Invece di essere messo a 1, come per (LOOP), DE e’ nello 
al valore di TOS, segue (LOOP). 

(DO) (RSP)*(RSP)-4.P0P DE.HL=(RSP) 

(HL)=DE.P0P DE.HL=HL+2 
(HL)=DE.Val a NEXTl. 

Questa e’ la forma compilata di (DO). Vengono fatti due 
inserimenti nel Return Stack. Il nuovo TORS e’ preso da 
TOS (valore Iniziale dell’indice) e il nuovo 20RS e’ preso 
da 20S (valore limite dell’indice). 

I HL=(RSP).DE=(HL).PUSH DE.Val a NEXTl 

II contenuto di TORS viene copiato in TOS. All’interno di 
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16 


17 

18 


20 

21 


22 

23 

24 

25 

26 
27 


un ciclo DO questo trasferisce il valore corrente 
dell’indice. 

DIGIT POP HL.POP DE.A=E-48 

Se A e’ negativo vai a 18. 

Altrimenti se A e’ minore di 10 vai a 17. 

A=A-7. 

Se A e’ minore di 10 vai a 18. 

Se A e’ maggiore di L vai a 18. 

E=A.HL=l.Vai a PUSHDE. 

L=H. Vai a PUSHHL. 

La base numerica da TOS viene messa in HL. Il codice ASCII 
in 20S viene messo in DE. Il codice e’ convertito in un 
valore numerico. Se tale valore e’ negativo, maggiore 
della base numerica o in altro modo non valido, viene 
raggiunto 18. Viene posto uno zero come TOS (si assume che 
la base numerica non ecceda 255, cosi’ H=0). Altrimenti il 
numero e’ posto in 20S, con T0S=1 ad indicare il successo 
della conversione. 

<FIND> POP DE. 

POP HL.PUSH HL. 

Se (DE) XOR (HL) AND 3FH <> 0 vai a 26. 

INC HL.INC DE. 

Se (DE) XOR (HL) <> 0 vai a 25. 

Se il bit 7 di (DE) XOR (HL) = 0 vai a 21. 

HL=DE+5 

Scambia (SP) e HL 

DEC DE. 

A=(DE>. Se il bit 7 di A = 0 vai a 23 

E=A.D=0.HL=1. Vai a PUSHDE. 

Se (DE) XOR (HL) = 1 vai a 27. 

INC DE.A=(DE). Se il bit 7 di A = 0 vai a 26 

INC DE. Scambia DE e HL.DE=(HL> 

Se DE <> 0 vai a 20. 

Altrimenti POP HL.HL=0. vai a PUSHHL. 

Questa e’ una routine che cerca una corrispondenza con il 
testo puntato da 20S, la routine parte a TOS. Il testo di 
riferimento e’ il nome di una parola e la routine lo 
ricerca attraverso i campi nome del dizionario. Il 
puntatore di ricerca viene messo (POP) in DE, e il 

puntatore del testo di riferimento viene messo in HL e 
quindi rimesso nello stack. Se i codici (bytes lunghezza) 
ai quali puntano sono diversi rispetto ai bits 0-5, la 
routine salta a 26 (notate che il bit "macchia" (SMUDGE) 
non viene considerato). Altrimenti, i puntatori vengono 
incrementati. La routine ricorre a 21 finche’; o viene 
trovata una diversità’ o viene trovato il bit 7 di (DE), 
che segna la fine del nome del dizionario. In quest’ultimo 
caso HL=DE+5, cosicché’ HL punta all’indirizzo del campo 
parametri che viene messo nello stack al posto del 

puntatore del testo di riferimento. Viene quindi 
ripetitivamente decrementato DE finche’ viene trovato il 
byte lunghezza della parola del dizionario, il byte 
lunghezza viene quindi messo nello stack seguito da un 
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28 

29 


30 

31 


32 

33 

34 

35 

36 

37 


flag vero. Se viene riscontrata la non corrispondenza di 
un carattere, viene raggiunto 25. Se 11 bit 7 del nome del 
dizionario era vero, la routine salta a 27. Altrimenti, e 
se una non corrispondenza del byte lunghezza porta la 
routine a 26, DE viene ripetitivamente Incrementato 
finche' (DE) ha il bit 7 vero. Un ulteriore incremento fa 
puntare a DE l’Indirizzo del campo associazione. Viene 
letta l’associazione e se non e’ zero la routine salta a 
20. se l’associazione e’ zero, e’ stata raggiunta la fine 
del dizionario, e il TOS e’sostitulto con un flag zero 
(falso) a indicare che non e’ stata trovata 
corrispondenza. 

ENCLOSE POP DE.POP HL.PUSH HL. 

A=E.D=A.E=FFH.DEC HL. 

INC HL.INC E. Se (HL)=A vai a 29 
D=0.PUSH DE.D=A.A=(HL) 

Se AO0 vai a 30. 

Altrimenti D=0.INC E.PUSH DE.DEC E.PUSH DE. 
Vai a NEXTl 

A=D.INC HL.INC E.Se A=(HL) vai a 31. 

Se (HL)<>0 vai a 30. 

D=0.PUSH DE.PUSH DE.Vai a NEXTl. 

D=0.PUSH DE.INC E.PUSH DE.Val a NEXTl. 

Questa routine scandisce il testo per localizzare 1 
del imitatori. Il dellmitatore viene prelevato da TOS e 
messo In DE, l’indirizzo d’inizio per la scansione viene 
copiato da 20S in HL. Il codice del dellmitatore viene 
copiato In A e D. E viene messo a -1 e HL decrementato. Un 
ciclo in 29 cerca quindi 11 primo carattere non 
dellmitatore, avanzando HL ed E. Quando si esce dal ciclo, 
D=0 e DE viene messo nello stack (PUSH) (mettendo il primo 
carattere non dellmitatore In 30S). Se (HL)=0, E+1 viene 

messo nello stack (mettendo 11 prossimo delimitatore In 
20S) e poi E (mettendo In TOS 11 primo carattere non 
Incluso) . 

Se (HL)<>0, un ciclo in 30 scandisce 11 testo finche’ 
viene trovato un dellmitatore (va a 31) oppure (HL)=0. Nel 
primo caso 1 valori messi nello stack sono E ed E+1, nel 
secondo caso due volte E. 

EMIT Viene chiamato 11 codice macchina a 274 

OUT +! OUT viene Incrementato. 

KEY Viene chiamato il codice macchina a 266. 

Per dettagli, vedere le routlnes in codice macchina. 
7TERMINAL HL=0. Viene chiamato il C.M. a 263. 

CR Viene chiamato 11 codice macchina a 276. 

CMOVE HL=8C.P0P BC.POP DE. Scambio fra (SP) e HL 

Se BC=0 vai a 37 
Altrimenti LDIR.POP BC. 

Val a NEXTl 

LDIR esegue l’azione di copiatura, ma e’ necessario che BC 
contenga il parametro lunghezza, cosi’ l’IP passa a 
HL,quindi allo stack, e poi ancora a BC quando e’ stato 
eseguito LDIR. 
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38 U* POP DE.POP HL.PUSH BC. 

B=H.A=L.CALL 39 

PUSH HL.H=A.A=B,B=H,CALL 39. 

POP DE.C=D.HL=HL+BC.PUSH DE. 

Val a PUSHHL. 

39 HL=0.C=8 

40 HL=2*HL.RL A.Se non c’e’ 11 carry vai a 41. 

HL=HL+DE.A=A+carry 

41 DEC C. Se c<>0 vai a 40. 

RETURN 

La routine a 39 moltipllca A per DE, con 11 risultato In 
HL. E’ In primo luogo utilizzato per moltipllcare 11 byte 
Inferiore di 20S per TOS, quindi per moltipllcare 11 byte 
superiore di 20S per TOS. I due risultati vengono 
combinati In un numero doppio, la meta’ Inferiore messa 
nello stack da DE, la meta’ superiore da HL. Notate che 
anche qui l’IP viene salvato nello stack per rendere 
disponibile BC per altri usi. 

42 U/MOD HL=4+SP.E=(HL).<HL>=C 

INC HL.D=<HL).(HL)=B.POP BC.POP HL. 

Se BC e’ maggiore di HL vai a 43. 

Altrimenti HL=FFFFH.DE=FFFFH. Vai a 48. 

43 A=16 

44 HL=2*HL RL A. Scambia DE e HL. 

HL=2»HL.Se non c’e’ carry vai a 45. 

INC DE.AND A. 

45 Scambia DE e HL.RR A.PUSH AF. 

Se non c’e’ carry vai a 46. 

A=A AND L.HL=HL-BC-carry 

Vai a 47. 

46 HL=HL-BC.Se non c’e’ carry vai a 47. 

HL=HL+BC.DEC DE 

47 INC DE.POP AF.DEC A.Se AO0 vai a 44. 

48 POP BC.PUSH HL.PUSH DE.Val a NEXTl 

Quando viene messo (PUSH) un dato nello stack Z80, il 

puntatore dello stack punta all’ultimo byte inserito. 
Aggiungendo 4 a SP, questi dunque punterà’ al byte alto di 
30S. Questi viene messo In DE e sostituito da IP preso da 

BC. Viene prelevato TOS e messo In BC e 20S In HL. La 

routine divide 20S/30S per TOS. Se TOS non e’ maggiore di 

20S, viene messo nello stack FFFFH due volte. Altrimenti 
viene eseguita una routine di divisione iterativa su una 
base ristabilita, che lascia un resto vero. Questo viene 
posto nello stack da HL, 11 risultato da DE. 


49 

AND 

POP 

DE 

.POP HL.HL=HL 

AND 

DE. 



Val 

a 

PUSHHL. 



50 

OR 

POP 

DE 

.POP HL.HL=HL 

OR 1 

DE. 



Val 

a 

PUSHHL. 



51 

XOR 

POP 

DE 

.POP HL.HL=HL 

XOR 

DE. 



Val 

a 

PUSHHL. 



52 

SP@ 

HL=: 

SP. 

Val a PUSHHL. 



53 

SP! 

DE» 

<IX+6).Scambia DE,HL 

.RSP=HL 


Vai a NEXTl 
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IX punta a 5E40 (vedi COLO) e viene usata per accedere 
all’area variabili. 


54 

RP@ 

HL=(RSP).Vai a PUSHHL. 

55 

RP! 

DE*(IX+8).Scambia DE,HL.<RSP)=HL 



Val a NEXTl 

56 

:S 

HL=<RSP).BC=<HL).HL=HL+2. 


<RSP)=HL.Vai a NEXTl. 

Questa funzione chiave termina l’interpretazione di una 
definizione tramite due punti o di uno schermo. L’IP viene 
ripreso dal Return Stack. 

57 LEAVE HL=<RSP).DE=<HL).HL=HL+2. 

(HL)=DE.Val a NEXTl 

Usato all’interno di un ciclo DO LOOP, LEAVE copia il 
valore dell’indice corrente al posto del valore limite 
cosi’ che si uscirà’ dal ciclo al prossimo LOOP. 

58 >R POP OE.HL=<RSP).<HL)=DE.HL=HL-2 

<RSP>=HL.Vai a NEXTl. 

59 R> HL=(RSP).DE=(HL).HL=HL+2 

<RSP)=HL.PUSH DE.Val a NEXTl. 

Queste due trasferiscono dati fra TOS e TORS, aggiustando 
gli stacks. La prossima funzione copia TORS in TOS senza 


cambiare TORS. 


60 

R 

Vai a 15 


R e’ identica a I nell’azione. 

61 

0= 

POP HL.Se HL=0 allora HL=1, altrimenti HL=0. 
Vai aPUSH HL. 

62 

0< 

POP HL.HL=2»HL. Se non c’e’ carry HL=0, 
altrimenti HL=1. Val a PUSHHL. 

63 

+ 

POP DE.POP HL.HL=HL+DE.Vai a PUSHHL. 

64 

D+ 

HL=SP+6.DE=<HL).<HL)=BC. 

POP BC.POP HL.HL=HL+DE. 

Scambia DE.HL.POP HL. 

HL=HL+BC+carry. 

POP BC.PUSH DE. Vai a PUSHHL. 


L’IP viene salvato nello stack in 40S. Vengono usate due 


diverse 

addizioni per sommare i due doppi numeri. 

65 

MINUS 

POP DE.HL=0-DE.Val a PUSHHL. 

66 

DMINuS 

POP HL.POP DE.DE=0-DE. 

HL=0-HL-carry.PUSH DE.Val a PUSHHL. 

67 

OVER 

POP DE.POP HL.PUSH HL.Val a PUSHDE. 

68 

DROP 

POP HL.Val a NEXTl 

69 

SWAP 

POP HL.Ecambla <SP) e HL. Val a PUSHHL. 

70 

DUP 

POP HL.PUSH HL.Val a PUSHHL. 

71 

2DUP 

POP HL.POP DE.PUSH DE.PUSH HL.Vai a PUSHDE. 

72 

+ ! 

POP HL.POP DE.<HL)=<HL)+E.INC HL. 
(HL)=(HL)+D+carry.Val a NEXTl. 

73 

TOGQLE 

POP DE.POP HL.<HL)=XOR E.Val a NEXTl 

74 

9 

POP HL.DE=(HL).PUSH DE.Val a NEXTl. 

75 

C0 

POP HL.L*<HL).H=0.Vai a PUSHHL. 

76 

29 

POP HL.HL=HL+2.DE=<HL>.PUSH DE.HL=HL-2. 
DE=<HL).PUSH DE.Vai a NEXTl. 

77 

1 

POP HL.POP DE.(HL)*DE.Val a NEXTl. 

78 

C! 

POP HL.POP OE.<HL)=E.Val a NEXTl. 
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79 2! POP HL.POP DE.<HL)=DE.POP DE.HL=HL+2. 

<HL>=DE.Val a NEXTl. 

»80 ?EXEC Errore se non modo esecuzione. 

!CSP Salva 11 puntatore stack In CSP 

CURRENT 0 

CONTEXT ! CONTEXT=CURRENT 

CREATE Crea un titolo nel dizionario. 

1 Riprende la compilazione 

<;C0DE) Punta al codice seguente <81). 

81 HL=<RSP).<HL)=BC.HL=HL-2. 

<RSP)=HL.INC DE.BC=DE. 

Questa e' un’altra routine chiave. L’esecuzione del due 

punti esegue 1 controlli visti piu’ sopra, quindi definisce 
un’associazione a 81. L’IP Interpreta poi le parole che 
seguono, definendo associazioni o parole di dati per 

rappresentarli. Questo forma 11 campo parametri della nuova 
parola. Il processo termina con 11 punto e virgola: 

»82 ; ?CSP Errore se SPOCSP. 

compì LE Compila l’assoclaz. nel dlz. 

:S 

SMUDGE Rideflnlsce 11 bit ''macchia" 

[ Sospende la compilazione. 

Notate che due punti e punto e virgola, si incontrano solo 
In modo esecuzione, 1 due punti Inseriscono il modo 

compilazione e il punto e virgola ristabilisce il modo 

esecuzione. 


83 

NOOP 


NOOP non fa niente, tranne 

andare a NEXTl. 

84 

CONSTANT 

CREATE 

Inserisce una parola nel dlz. 



SMUDGE 

t 

TOGGLE del bit "macchia" 
(Virgola) Mette TOS nel dlz. 



<;CODE) 

Punta al codice seguente. 
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INC DE.Scambia DE,HL.DE=(HL). 


PUSH DE.vai a NEXTl. 

CONSTANT crea una parola nel dizionario che fa riferimento 
al codice a 85. Questo preleva la parola seguente e la 
mette in TOS. 


86 

VARIABLE 

CONSTANT 

Crea una costante. 

87 

Il codice a 

<;C0DE) 

87 mette 

Punta al codice seguente. 

INC DE.PUSH DE,Val a NEXTl. 
nello stack l’indirizzo della 

88 

varlabi le. 

USER 

CONSTANT 

Crea una costante. 

89 

<:CODE> 

Si fa riferimento ad una 

Punta al codice seguente. 
HL=IX+DE.Vai a PUSHHL. 
variabile nello spazio generale di 


lavoro, usando 
prelevato da E, 

IX e uno 

spiazzamento a un singolo byte 


, L’indirizzo della variabile va in TOS. 

90 

0 


Costante 0 in TOS 

91 

1 


Costante 1 in TOS 

92 

2 


Costante 2 in TOS 

93 

3 


Costante 3 in TOS 

94 

BL 


Costante 20H (Codice spazio) in 
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95 

C/L 


TOS 

Costante 40H (Caratteri per 

96 

FIRST 


1Inea) In TOS 

costante CBE0H (Inizio del 

97 

LIMIT 


primo buffer) in TOS 

Costante D000H (Fine 

98 

B/BUF 


dell’ultimo buffer) In TOS 
Costante 80H (Bytes per buffer) 

99 

B/SCR 


in TOS 

Costante 8 (Blocchi per 


Le parole di 

cui sopra 

schermo) In TOS 
usano 11 codice a S5. 

100 

+ORIGIN 

LIT 5E40 

+ Somma 5E40 (origine nominale) a 

101 

SO 


TOS 

Indirizzo 5E06 in TOS 

102 

RO 


Indirizzo 5E08 In TOS 

103 

TIB 


Indirizzo 5E0A In TOS 

105 

WIDTH 


Indirizzo 5E0C in TOS 

106 

WARNING 


Indirizzo 5E0E in TOS 

107 

FENCE 


Indirizzo 5E10 in TOS 

108 

DP 


Indirizzo 5E12 in TOS 

109 

VOC-LINC 


Indirizzo 5E14 in TOS 

110 

BLK 


Indirizzo 5E16 in TOS 

111 

IN 


Indirizzo 5E18 in TOS 

112 

OUT 


Indirizzo 5E1A in TOS 

113 

SCR 


Indirizzo 5E1C in TOS 

114 

OFFSET 


Indirizzo 5E1E in TOS 

115 

CONTEXT 


Indirizzo 5E20 in TOS 

116 

CURRENT 


Indirizzo 5E22 in TOS 

117 

STATE 


Indirizzo 5E24 in TOS 

118 

BASE 


Indirizzo 5E26 in TOS 

119 

DPL 


Indirizzo 5E28 in TOS 

120 

FLD 


Indirizzo 5E2A in TOS 

121 

CSP 


Indirizzo 5E2C in TOS 

122 

R# 


Indirizzo 5E2E in TOS 

123 

HLD 


Indirizzo 5E30 in TOS 


Queste parole 

usano 11 

codice a 89. 

124 

1 + 

1 + 

Somma 1 a TOS 

125 

2+ 

2 + 

Somma 2 a TOS 

126 

MERE 

DP @ 

Mette in TOS il puntatore del 

127 

ALLOT 

DP +! 

dizionario. 

Somma TOS al puntatore del 

128 

* 

MERE 2 ! 

dizionario. 

Memorizza TOS a MERE, somma 2 a 

129 

c. 

ALLOT 
MERE C! 

DP (virgola). 

Memorizza il byte di TOS a 

130 


1 ALLOT 

MERE, DP=0P+2. 

POP DE.POP HL.HL=HL-DE. 

131 


- 0= 

Val a PUSHHL. 

Se T0S=20S, T0S=1 altrimenti 0. 

132 

< 


POP DE.POP HL.Se il bit 7 di 




D XOR H = 0 allora HL=HL-DE (i 
segni differiscono) se H e’ 


99 



positivo allora HL=0 altrimenti 
l.Val a PUSHHL, 


133 

U< 

2DUP XOR 0< 

Se 1 segni di TOS e 20S 
differiscono mette un flag 




vero. 



0BRANCH 

000C 

Se 11 flag e’ falso vai a 134. 



DROP 

Scarta TOS. 



0< 0= 

Mette un flag vero se 11 nuovo 
TOS e’ positivo. 



BRANCH 0006 

Fine. 

134 


- 0< 

Mette un flag vero se TOS 
eccede 20S. 

135 

> 

SWAP < 

Scambia TOS e 20S ed esegue la 
funzione inversa. 

136 

ROT 


POP DE.POP HL.Scambia <SP),HL. 

137 

SPACE 

BL EMIT 

Scrive uno spazio. 

138 

-DUP 

DUP 

08RANCH 

Duplica TOS 



0004 

Fine se TOS=0 



DUP 

Duplica TOS 

139 

TRAVERSE 

SWAP 

Stack: indirizzo n <n= + o - 1> 

140 


OVER + 

stack: indirizzo n + n 



LIT 007F 

OVER 

Stack; indirizzo n + n 7FH 
Indirizzo + n 



C@ < 

Confronta (indirizzo + n) con 
7FH. 



0BRANCH 

FFF0 

Se (Indirizzo + n> non e’ 

maggiore di 7FH vai a 140. 



SWAP DROP 

Altrimenti scarta n, lasciando 
indirizzo + n. 


Questo esegue una scansione 

attraverso un campo nome del 


dizionario 

nella direzione 

determinata dal segno di n, 


finche’ non 

viene trovato un byte col bit 7 vero. 

141 

LATEST 

CURRENT @ 0 

TOS=(CURRENT) 

142 

LFA 

LIT 0004 - 

Sottrae 4 da TOS. 

143 

CFA 

2 - 

Sottrae 2 da TOS. 

144 

NFA 

LIT 0005 - 

Sottrae 5 da TOS. 



LIT FFFF 

T0S=-1. 



TRAVERSE 

Esegue una scansione indietro 
attraverso il campo nome. 

145 

PFA 

1 TRAVERSE 

Esegue una scansione in avanti 



4 

attraverso il campo nome. 



LIT 0005 + 

Aggiunge 5 a TOS. 

146 

!CSP 

SP 0 

Legge il puntatore dello stack. 



CSP ! 

Lo scrive in CSP. 

147 

7ERR0R 

SWAP 

0BRANCH 

Stack: flag n 



0008 

ERROR 

Se il flag e’ vero vai a 148. 
Riporta l’errore 



BRANCH 0004 

Fine 
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148 


DROP 

149 

?C0MP 

STATE 0 0= 
LIT 0011 
7ERR0R 

150 

?EXEC 

STATE 0 

LIT 0012 
7ERR0R 

151 

7PAIRS 

LIT 0013 
7ERR0R 

152 

?CSP 

SP 0 CSP 0 

LIT 0016 
7ERR0R 

153 

7L0ADING 

BLK 0 0= 

LIT 0016 
7ERR0R 

154 

compì lE 

7C0MP 

R> 

DUP 2+ 

>R 
@ , 

*155 

[ 

0 STATE ! 

156 

] 

LIT 00C0 
STATE ! 

157 

SMUDGE 

LATEST 

LIT 0020 
TOGGLE 

158 

HEX 

LIT 0010 


y 

BASE ! 

159 

DECIMAL 

LIT 000A 
BASE ! 

160 

<;C0DE) 

R> 

LATEST 

PFA CFA ! 

*161 

;C0DE 

7CSP 
compì LE 
< ;C0DE) 

C 

SMUDGE 

162 

<BUILDS 

0 CONSTANT 

163 

D0ES> 

R> 

LATEST PFA 


Scarta il numero dell’errore. 
Flag vero se STATE=0 
Errore numero 17 
Riporta l’errore se il flag e’ 
vero. 

Flag falso se STATE=0 
Errore numero 18 
Riporta l’errore se il flag e’ 
vero. 

Flag falso se T0S=20S 
Errore numero 19 
Riporta errore se il flag e’ 
vero. 

Confronta SP con CSP. 

Flag falso se e’ uguale. 

Errore numero 20 

Riporta l’errore se il flag e’ 

vero. 

Flag vero in TOS se si sta 
usando TIB. 

Errore numero 22 

Riporta l’errore se 11 flag e’ 

vero. 

Errore se non si e’ in modo 

compilazione 

TORS in TOS 

Stack: TORS TORS+2 

TOS in TORS 

Memorizza <T0RS) in MERE 
Mette a zero STATE 

Mette 129 in STATE 

Esegue TOGGLE sul bit 7 di 

LATEST 

Mette BASE=16 

Mette BASE=10 
TORS in TOS 

Scrive TORS al campo codici di 
LATEST 

Controlla che SP=CSP 

Compila <;C0DE) 

Mette STATE=0 

Esegue TOGGLE sul bit 7 di 

LATEST 

Stabilita una costante 
TORS in TOS 

Copia nel campo parametri di 
LATEST 
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<;CODE) Associazione al codice seguente 

164 HL=(RSP)-2.<HL)=BC.<RSP)=HL. 

INC DE.Scambia DE,HL.BC=<HL). 
Vai a PUSHHL. 

L’IP viene messo nel Return Stack e re-inizializzato da 
<DE+1>, mentre DE+1 va in TOS. 

165 COUNT DUP 1+ Stack: ind ind+l 

SWAP C0 Stack: ind+l <ind) 

Lo stack contiene inizialmente l’indirizzo del byte 
lunghezza di una stringa di testo. L’indirizzo dell’inizio 
del testo viene mesSo in 20S con il byte lunghezza in TOS. 


166 TYPE 

-DUP 

0BRANCH 

Duplica TOS se non e’ 0 



0018 

BRANCH a 168 se TOS=0 



OVER + 

Stack: ind Ind+lung 



SWAP 

(DO) 

Stack: ind+lung ind 


167 

I C0 

Legge (I) in TOS 



EMIT 

Scrive TOS 



(LOOP) FFFB 

Ciclo a 167 



BRANCH 0004 

Fine 


168 

DROP 

Scarta l’indirizzo 


169 -TRAILING 

DUP 0 
(DO) 

Stach: ind lung lung 0 


170 

OVER OVER 

Stack: ind lung ind lung 



+ 1 - 

Stack: ind lung (ind+lung-1) 



C0 8L - 

confronta (ind+lung-l) con 
codice spazio 

il 


0BRANCH 




0008 

Vai a 171 se viene riscontrata 



corrispondenza. 



LEAVE 

Definisce la condizione 
uscita dal ciclo. 

di 


BRANCH 0006 

Vai a 172 


171 

1 - 

Decrementa la lunghezza 


172 

(LOOP) FFE0 

Ciclo a 170. 



Un testo Stringa viene scandito al 1’indietro, il byte 
lunghezza viene decrementato ad ogni codice spazio che si 
incontra, finche’ non si trova un codice diverso dallo 
spazio. 

173 (.”) R TORS copiato in TOS 

COUNT Aggiusta l’indirizzo e la lung. 

DUP 1+ Stack: ind lung lung+1 

R> + >R TORS=TORS+lung+1 

TYPE Emette la stringa 

Viene aggiornato TORS e viene emessa la stringa definita. 

»174 ." LIT 0022 Codice per " (delimitatore) 

STATE 0 TOS=STATE 

0BRANCH Se siamo in modo esecuzione vai 

0014 a 175. 

compì LE (.') 

WORD Memorizza il testo a MERE 

MÈRE C0 Legge il byte lunghezza 
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1+ ALLOT Riserva lung+1 bytes 
BRANCH 000A Fine 

175 WORD Memorizza 11 testo a MERE 

MERE 

COLINI TYPE Emette 11 testo 

Questa parola agisce In maniera piuttosto diversa In modo 
esecuzione e In modo compilazione. In compilazione 


definisce <.*) con 11 testo 
testo. 


176 EXPECT 

OVER + OVER 
(DO) 

KEY DUP 

LIT 000E 
+ ORIGIN 0 

0BRANCH 

002A 

DROP DUP I 
DUP 

R> 2 - + >R 
0BRANCH 

000A 

NOOP NOOP 

178 

BRANCH 0008 
BRANCH 0028 

179 

DUP 

LIT 000D 

0BRANCH 

000E 

LEAVE 

DROP BL 0 
BRANCH 0004 

180 

DUP 

181 

I C! 

0 I 1+ ! 

182 

EMIT 

183 

(LOOP) FF9C 
DROP 

184 QUERY 

TIB 0 

LIT 0050 
EXPECT 

0 IN ! 


»185 (Vedi la nota) BLK 0 


0BRANCH 
002A 
1 BLK +! 

0 IN I 
BLK 0 
B/SCR 1 - 
AND 0= 
0BRANCH 


In esecuzione visualizza 11 
Stack: Ind Ind+llmlt Ind 
Stack; Ind Input Input 
T0S=<5E4E) 

Flag zero se TOSOlnput 

Se 11 flag e’ zero vai a 179 
Flag zero se lOlnd 
Duplica 11 flag 
T0RS=T0RS-2+flag 

Se 11 flag e’ zero vai a 178 
Ritardo? 

Codice per 11 cursore a slnlst. 
Val a 182 

Stack: Ind Input Input 

Codice newllne 

Flag zero se InputOnewlIne 

Se 11 flag e' zero vai a 180 
Termina 11 ciclo 
Stack: Ind codice-spazio zero 
Val a 181 

Stack: Ind Input Input 
Mette Input In (I) 

Azzera la prossima locazione 
Scrive 11 carattere In TOS 
Ciclo a 177 

Cancella lo stack, fine. 
Indirizzo del buffer di Input 
terminale in TOS 
Lunghezza limite <80 bytes) 

Vedi sopra 
Azzera IN. 

Numero del blocco In TOS 

Val a 187 se e’ In uso TIB 
Incrementa 11 numero del blocco 
Azzera IN 

Numero del blocco Ih TOS 
Blocchi per schermo -1 In TOS 
Flag zero se <TOS AND 2OS)=0 
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186 

187 


188 


189 


190 


191 

192 

193 

194 


195 


196 

197 


198 


0008 Se 11 flag e’ zero vai a 186 

7EXEC * Errore se non si e’ In modo 

esecuzione 

R> DROP Scarta TORS 

8RANCH 0006 Fine 
R> DROP Scarta TORS 

Il campo nome per questa parola contiene solo CIH,80H che 
Indica 11 codice 0. Esso abilita 1 blocchi con un codice 
nullo. 

FILI HL=8C.P0P DE.POP BC. 

Scambia <SP),HL 
Scambia DE,HL 
Se BC=0 vai a 190 
<DE)=L.INC DE.DEC BC. 

Val a 189 

POP BC.Val a NEXTl 

DE, quindi HL, contengono 11 carattere da usarsi. Il numero 
di caratteri da inserire e’ contenuto In BC,mentre HL, poi 
DE, contiene l’indirizzo d’inizio, che e’ incrementato dopo 
ogni inserimento. 

ERASE 0 FILL Vedi sopra. 

BLANKS BL FILL Vedi sopra. 

HOLD LIT -1 HLD +! Decrementa HID 

HLD 0 C! Memorizza TOS in <HLD) 

PAD NERE 

LIT 0044 + T0S=HERE+68 

Il buffer PAD non e’ ad un Indirizzo fisso ma si trova 

sopra il dizionario ad una distanza di 68 bytes. 

WORD BLK 0 T0S=numero del blocco 

0BRANCH 

000C Se e’ in uso TIB vai a 196 

BLK 0 T0S=numero del blocco 

BLOCK TOS=lndlrlzzo del blocco 

BRANCH 0006 Vai a 197 

TIB 0 TOS=Indlrlzzo del TIB 

IN 0 + Somma IN 

SWAP Stack: Ind del imitatore 

ENCLOSE Stack: ind offsetl offset2 

offsetS 

HERE LIT 0022 

BLANKS Inserisce 34 codici spazio 

IN +! Somma offsetS a IN 

OVER Stack: ind offsetl offset2 

offsetl 

- >R 

R HERE C! T0RS=offset2-offsetl 
<HERE)=TORS 

+ HERE 1+ R> Stack: Ind+offsetl 
HERE+1 TORS 

CMOVE Copia TORS bytes da ind+offsetl 

a HERE+1 

(NUMBER) 1+ DUP Stack: X/Y ind+1 lnd+1 

>R TORS*ind+l 


104 



C0 


TOS=<lnd+l) 

(Codice numerico ASCII) 

BASE 0 T0S=BASE 

DIGIT Converte il codice ASCII in un 

numero. 

0BRANCH 

002C Se non e* valido vai a 200 

SWAP BASE 0 Stack: X numero Y BASE 

U* Stack: X numero Y»BASE 

DROP Scarta la parola superiore del 

numero doppio prodotto 

ROT BASE 

0 U* Stack: numero Y»BASE X*BASE 

D+ Stack: X*BASE+<Y»BASE+numero) 

DPL 0 1+ T0S=DPL+1 

0BRANCH 

0008 Se DPL=-1 vai a 199 

1 DPL +! Incrementa DPL (per contare i 

caratteri dopo il punto) 

199 R> Riprendi l’indirizzo da TORS 

BRANCH FFC6 Val a 198 

200 R> Cancella TORS 

Questa routine viene chiamata normalmente da NUMBER, che 
mette a zero X/Y. Il processo merita un esame minuzioso. 

201 NUMBER 0 0 ROT DUP Stack: 0 0 Ind ind 

1+ C0 Stack: 0 0 ind (lnd+1) 

LIT 002D Codice per il segno meno 

= Flag zero se (ind+1) <> codice 

segno meno. 

DUP Duplica il flag 

>R Flag in TORS 

+ Stack: 0 0 Ind+flag (un passo 

dopo il codice segno) 

LIT -1 

202 DPL ! Definisce DPL 

(NUMBER) Vedere sopra 

DUP C@ Stack: numero/numero ind (ind) 

BL - Lo confronta con il codice 

spazio 

0BRANCH 

0016 Se e’ codice spazio vai a 203 

DUP C@ Stack: numero/numero ind (ind) 

LIT 002E - lo confronta con il codice del 
punto decimale 

0 7ERR0R Errore se non e’ il punto 

decimale 

0 Mette a 0 DPL e’ il punto 

decimale. 

BRANCH FFDC Val a 202 

203 DROP R> Riprende il flag segno da TORS 

0BRANCH 

0004 Se il flag=0 fine. 

DMINUS Nega il risultato. 
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204 


205 

206 

207 


208 

209 


NUMBER produce sempre un doppio numero come risultato. Il 
byte superiore viene scartato da INTERPRET se non c’e’ il 
punto decimale, 

-FINO BL Codice spazio In TOS 

WORD Copia il nome a HERE 

HERE Definisce il puntatore di 

riferimento 

CONTEXT 0 0 Definisce il puntatore di 

ricerca 

(FIND) Ricerca la parola 

DUP ' Stack: PFA lung flag flag 

0= Inverte il flag 

0BRANCH 

000A Fine se viene trovata 

corrispondenza 
DROP Scarta il flag 

HERE Definisce il puntatore di 

riferimento 

LATEST Mette il puntatore di ricerca a 

LATEST 

(FINO) Ricerca ancora 

Se (FIND) fallisce, viene lasciato nello stack solo il 
flag, cosicché’ non v’e’ bisogno di scartare il byte 

lunghezza e PFA. Viene poi fatta una ricerca a partire da 
LATEST anziché’ da (CONTEXT). 

(ABORT) ABORT 

Questa parola permette all’utente usi speciali di (ABORT) 
ERROR WARNING 

0 0< Flag vero se WARNING negativo 

0BRANCH 

0004 Se WARNING non e’ negativo vai 

a 207 

(ABORT) 

HERE 

COUNT TYPE Scrive la parola errata 

(.*) Scrive il punto di domanda 

MESSAGE Scrive il numero d’errore o il 

testo 

SP! Resetta SP 

BLK 0 -DUP Numero del blocco, duplicato se 
non e’ zero 

0BRANCH 

0008 Se e’ in uso TIB vai a 208 

IN 0 SWAP Stack: blocco IN 

QUIT Restituisce il controllo 

all’utente. 

ID. PAD LIT 0020 

LIT 005F FILI Riempie il buffer PAD con 32 
codici 5F 

DUP PFA LFA Stack: NFA LFA 

0VER - Stack: NFA LFA-NFA 

PAD SWAP Stack: NFA PAD LFA-NFA 

CMOVE Copia LFA-NFA bytes da NFA a 
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PAD COUNT 


210 CREATE 


211 


»212 CCOMPILE] 

»213 LITERAL 

»214 DLITERAL 

215 7STACK 


PAD 


Controlla la lunghezza della 
copia 

LIT 001F AND Limita a 31 bytes 

2DUP Stack: ind lung Ind lung 

+ 1 - OUP Stack: ind lung ind+lung-1 

0 T0S=codice dell’ultima lettera 

LIT FF7F AND Rimuove il bit 7 

SWAP ! Ripristina i bytes modificati 

TYPE SPACE Scrive la parola, aggiunge uno 


-FIND 
0BRANCH 
0010 
DROP 
NFA ID. 
LIT 0004 
MESSAGE 
SPACE 
MERE DUP 
WHIDTH 0 
1+ ALLOT 
DUP 

LIT 00A0 
TOGGLE 

MERE 1 - 
LIT 0080 
TOGGLE 


spazio. 

Ricerca il nome della parola 

Val a 211 se e’ unico 
Scarta la lunghezza 
Scrive il nome della parola 
Messaggio 4 

Scrive il numero o il messaggio 
Aggiungi uno spazio 
C0 Stack: MERE <HERE> 

MIN Lunghezza limite 31 caratteri 
ALLOT per uno in piu’ 

Stack: MERE MERE 

TOGGLE del bit 5 e 7 del byte 
lunghezza 

MERE modificato da ALLOT 
TOGGLE del bit 7 dell’ultima 


lettera 


LATEST , Definisce il campo associazioni 

CURRENT 0 ! Viene letto current come un 


indirizzo. <CURRENT)=HERE 
MERE 2+ , Definisce il campo codici 
-FIND Ricerca il nome della parola e 

lo inserisce a MERE 


0 = 

0 7ERR0R 
DROP 
CFA , 

STATE 0 
0BRANCH 
0008 

COMPILE LIT 

STATE 0 

0BRANCH 

0008 

SWAP 

LITERAL 

LITERAL 

SP0 SO 0 

SWAP 

U< 


TOS=0 se trovato 
Errore 0 se non trovato 
Scarta il byte lunghezza 
Definisce il campo codici 


Se il modo e’ esecuzione fine. 

, Definisce l’inserimento di LIT 

Se il modo e’ esecuzione fine. 


Stack; SP SO 
Stack: SO SP 

Flag vero se SP eccede SO 
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1 7ERR0R 

SP0 MERE 

Errore 1 se i1 flag e’ falso 


LIT 0080 

Stack: SP HERE+128 


U< 

LIT 0007 

Flag vero se HERE+128 e’ 

maggiore 


7ERR0R 

Errore 7 se il flag e’ vero 

216 INTERPRET 

-FINO 

0BRANCH 

Ricerca il nome della parola e 
la inserisce a HERE 


001E 

Se non viene trovato vai a 219 


STATE 0 < 

0BRANCH 

Flag vero se la lunghezza e’ 
minore di STATE 


000A 

Se e’ falso vai a 217 


CFA . 

Inserisce CFA a HERE 


BRANCH 0006 

Vai a 218 

217 

CFA EXECUTE 

Esegue le funzioni indicate 

218 

7STACK 

Controlla 1 limiti dello stack 


BRANCH 00IC 

Val a 222 

219 

MERE 



NUMBER 

Interpreta la parola come un 
numero 


DPL 0 1+ 
0BRANCH 

T0S=DPL+1 


0008 

Se DPL=-1 vai a 220 


DLITERAL 

Definisce un numero doppio 


BRANCH 0006 

Vai a 221 

220 

DROP 

Scarta il byte superiore del 
numero doppio 


LITERAL 

Definisce un numero singolo 

221 

7STACK 

Controlla i limiti dello stack 

222 

BRANCH FFC2 

Val a 216 


Il confronto del byte lunghezza con lo stato implementa le 
caratteristiche speciali di alcune parole. Notate che se il 
nome di una parola e’ anche un numero valido nella BASE 
corrente, non sara’ possibile inserire quel numero, perche’ 
Sara’ sempre interpretato prima come parola. 

223 IMMEDIATE LATEST 

LIT 0040 

TOGGLE TOGGLE del bit 6 di LATEST 

224 VOCABULARY <BUILDS Stabilisce l’ingresso di una 

costante 

LIT A081 , Memorizza A081 in MERE 

CURRENT 0 

CFA , Memorizza CFA di CURRENT in 

MERE 

MERE 

VOC-LINC 0 , Memorizza VOC-LINK in MERE 

VOC-LINC ! Memorizza il precedente NERE in 
VOC-LINK 

D0ES> 

225 2 + CONTEXT ! Mette CONTEXT a CURRENT + 2 
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*226 

FORTH 


227 

(spazio) 


228 

DEFINITIONS 

CONTEXT 0 
CURRENT ! 

*229 

( 

LIT 0029 



WORD 

230 

QUIT 

0 BLK ! 

231 


[ 

RP! 

CR QUERY 



INTERPRET 
STATE 0 0= 
08RANCH 
0007 


"ok" 

232 BRANCH FFE7 

233 ABORT SP! 

DECIMAI 

?STACK 
CLS CR 
• CPU 

<.") testo 

f-> t..to 

CR 

FORTH 

DEFINITIONS 

QUII 


234 

Ingresso 

da 

WARM inizio 

235 

236 

WARM 


EMPTY- 

237 

Ingresso 

da 

BUFFERS 

ABORT 

COLD inizio 


238 


Esegue 11 codice a 164 
Esegue 225 

Azzera 11 campo codici 
CURRENT=CONTEXT 

Il dellmltatore e’ la chiusa 
parentesi 

Definisce un commento ma lo 
Ignora 

Definisce 11 blocco 0 (in uso 
TIB) 

STATE=0 

Inizlallzza RSP 

Newllne. Accetta un testo in 
Input 

Interpreta il testo 

Flag vero se il modo e’ esecuz. 

Se il flag e’ falso vai a 232 
Visualizza "ok* 

Vai a 231 
Inizlallzza SP 

Seleziona la rappresentazione 
decimale 

Controlla 1 limiti dello stack 
Cancella lo schermo, newllne 
Scrive "48K Spectrum* 

Scrive "flg-FORTH 1.lA" 

Newl1 ne 

Scrive "(C) Abersoft: 1983" 
Newllne 

Seleziona 11 vocabolario FORTH 
CURRENT=CONTEXT 

Ritorna il controllo all'utente 
BC=indirizzo dell’associazione 
a 236 

IX=<5E66)=5E00 

HL=<5E52>=CB40 

SP=HL 

Val a NEXTl (e di la’ a 236) 
Associazione a CFA per WARM 

Segna 1 buffers come vuoti 
Vedi sopra 

<FLAGS2)=8 (Variabile BASIC) 
(hold)=0 (Vedi 266) 

BC=lndlrlzzo dell’associazione 
a 267 

IX=(5E66)=5E00 

HL=(5E52)=CB40 

SP=HL 

Val a NEXTl 

Associazione a CFA per COLD 
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239 

COLO 

EMPTY- 
BUFFERS 
LIT CBE0 

USE 



LIT CBE0 
PREV ! 
DR0 

LIT 5E52 
LIT 5E66 

@ 



LIT 0006 
LIT '0010 
CMOVE 

+ 



LIT 5E4C 
LIT 6CF8 

@ 



ABORT 


240 

S->D 



241 

+- 

0<( 

0BRANCH 

0004 

MINUS 


242 

D+- 

0< 

0BRANC 

0004 

DMINUS 


243 

ABS 

DUP +- 


244 

DABS 

OUP D+- 


245 

MIN 

2DUP > 




0BRANCH 

0004 

SWAP 


246 


DROP 


247 

MAX 

2DUP < 




0BRANCH 

0004 

SWAP 


248 


DROP 


249 

M» 

2DUP XOR 

>R 



ABS SWAP 
ABS 

U» 

R> D+- 


250 

M/ 

OVER >R 
DABS 

>R 


Segna i buffers come vuoti 
! Definisce il prossimo 
butfer=CBE0 

Definisce l’ultimo buffer=CBE0 
OFFSET=0 


Stack: 5E52 (5E66)+6 16 
Copia 16 bytes, a partire da 
5E52 tino a 5E06 
T0S=8149 

<6CF8)=8149 (campo associazioni 
di 227) 

POP DE.HL=0.A=D AND 80H 
Se AO0 DEC HL. 

Vai a PUSHDE 

Se TOS e’ negativo flag vero 

Se il flag e’ falso allora fine 
Nega TOS 

Flag vero se TOS e' negativo 

Se il flag e' falso allora fine 
Nega la parola doppia 
Se il TOS e’ negativo negalo 
Se il TOS e’ negativo nega la 
parola doppia 

Se 20S e’ maggiore di TOS flag 
vero 

Se il flag e’ falso vai à 246 

Scarta il maggiore 

Se 20S e’ minore di TOS flag 

vero 

Se il flag e’ falso vai a 248 


T0RS=T0S XOR 20S 
(Stack conservato) 

Rende positivi TOS e 20S 

Prodotto di T0S*20S 

Nega il risultato se il segno 

di TOS 20S differiva 

Stack: X Y T0RS=Z 20RS=Y 

Converte a positivo il doppio 

numero 


il0 



251 

252 

253 

254 

255 

256 

257 


258 


259 

260 


261 

262 



R ABS 

Converte a positivo Z 


U/MOD 

Stack: res quoz 


R> R XOR 

Negativo se il segno di XY e 
differisce 


+- 

SWAP 

Se negativo nega 11 quoziente 


R> +- 
SWAP 

Nega 11 resto se 2 e' negativo 

* 

M» DROP 

Scarta la meta’ superiore de 
prodotto 

/MOD 

>R S->D R> 

Estende 11 segno di 20S 


M/ 

Come sopra 

/ 

/MOD SWAP 



DROP 

Scarta 11 resto 

MOD 

/MOD DROP 

Scarta 11 quoziente 

»/MOD 

>R 

TOS in TORS 


M» 

Prodotto 


R> 

Riprende 11 TOS originale 


M/ 

Resto Quoziente 

»/ 

♦/MOD SWAP 



DROP 

Scarta il resto 

M/MOD 

>R 0 R 

Rende doppio 20S 


U/MOD 

Resto quozlentel 


R> SWAP >R 

Resto divisore 

TORS contiene quozlentel 


U/MOD R> 

Resto quozlente2 quozlentel 

(LINE) 

R> 

LIT 0040 

Stack: linea TORS: schermo 


B/BUF 

Bytes per buffer 


♦ /MOD 

Llneaf64/bytes per buffer 
(Res e quoz) 


R> B/SCR ♦ 

Res quoz schermofB/SCR 


+ 

Res quot+schermofB/SCR 


BLOCK + 

LIT 0040 

Somma l’Indirizzo del blocco 

.LINE 

(LINE) 

Vedi sopra 


-TRAILING 

Scarta gli spazi superflui 


TYPE 

Output 

MESSAGE 

WARNINQ e 



0BRANCH 001E 

Se WARNING=0 vai a 262 


-DUP 

Duplica se non e’ zero 


0BRANCH 0014 

Se messaggio 0 vai a 261 


LIT 0004 

Schermo 4 


OFFSET @ 

Blocco contrapposto 


B/SCR / 

Divide per blocchi per schermo 


- 

Sottrae dal numero di schermi 


.LINE 

Scrive 11 messaggio 


SPACE 

Aggiunge uno spazio 


BRANCH 000D 

Fine 


(.*) testo 

Scrive 'MSG #* 



Scrive 11 numero 

Il codice 

seguente viene usato da 7TERMINAL (vedi 34) 

vengono coinvolte routlnea 1 

BASIC. 


Ili 



263 


264 

265 

266 

267 

268 

269 

270 

271 


272 

273 


274 


275 


PUSH BC.PUSH DE.CALL 1F54. 

HL=0 

Se c’e' carry vai a 265 
Se <5C08)=7 allora INC HL. 

POP DE.POP BC.Val a PUSHHl. 

Il codice seguente viene usato da KEY (vedi 33). Vengono 
coinvolte routlnes BASIC. 

PUSH BC.A=2.CALL 1601. 

A=12.RST 10.A=1.RST 10. 

<5C08)=0 

A=(hold).RST 10.A=B.RST 10. 

Se <5C08)=0 vai a 268 
Se <5C08)<>6 vai a 271 
HL=5C6A.<HL)=(HL) XOR 8 
HL=hold.Se il bit 3 di A=1 vai 
a 270 

<HL)=4CH.Val a 267 
<HL>=43H.Val a 267 
Se AO0FH vai a 273 
A=2.HL=5C41. 

<HL)=<HL> XOR A 
Se <HL)=0 vai a 272 
A=<5C6A).Vai a 269 
A=47H.<hold)=A.Vai a 267 

In BASIC, 5C08 e’ LASTK, 5C41 e’ MODE. 5C6A e’ FLAGS2. 

La routine da 273 in poi e’ concepita principalmente per 
registrare certi tasti. 

C6 (AND) diventa 5B [ 

C5 (OR) diventa 5D ] 

E2 (STOP) diventa 7E " 

C3 (NOT) diventa 7C : 

CD (STEP) diventa 5C S 
CC (TO) diventa 7B { 

CB (THEN) diventa 7D > 

Se A e’ maggiore di A5H (dopo 
la conversione di cui sopra) 
vai a 267 (cioè' ignora 
l’input) altrimenti L=A. 
H=0.A=12.RST 10.A=0.RST 10.A=20 
RST 10.A*8.RST 10.POP BC. 

Vai a PUSHHL. 

Il codice seguente viene usato da EMIT (vedi 32). Di nuovo, 
vengono coinvolte routlnes BASIC. 

PUSH BC.PUSH HL.A=2. 

CALL 1601.POP HL.PUSH HL. 
A=1.RST 10.A=(hold2). 

Se A=0 vai a 275 

CALL 1601.POP HL.PUSH HL. 

A*L.RST 10 

POP HL.A=FFH.(5C8C)=A. 

POP BC.Vai a NEXTl 

5C8C in BASIC e' SCRCT (Contatore di Scroll). Metterlo a 
FFH assicura lo scroll continuo. Il contenuto di hold2 


IIS 



controlla la stampante (vedi 337). 

Il codice seguente e’ usato da CR (vedi 35). 


276 


277 


278 

USE 


279 

PREV 


280 

#BUFF 


281 

+BUFF 

LIT 0084 + 
DUP LIMIT = 



0BRANCH 0006 
DROP FIRST 

282 


DUP PREV 0 - 

283 

UPDATE 

PREV 0 0 

LIT 8000 OR 
PREV 0 ! 

284 

EMPTY-BUFFERS 

FIRST LIMIT 
OVER - 
ERASE 



LIMIT FIRST 
(DO) • 

285 


LIT 7FFF I ! 
LIT 0084 
(+L00P) FFF2 

286 

DRO 

0 OFFSET ! 

287 

BUFFER 

USE 0 DUP >R 

288 


+BUF 

0BRANCH FFFC 
USE ! 

R 0 0< 



0BRANCH 0014 
R 2+ R 0 

LIT 7FFF AND 
0 R/W 

289 


R ! 

R PREV ! 

R 2f 

290 

BLOCK 

OFFSET 0 + 

>R 

PREV 0 DUP 


0 

R - DUP 
+ 

291 0BRANCH 0034 

+BUF 0= 


PUSG BC.A=2.CALL 1601.A=2DH. 

RST 10.A=(hold2). 

Se A=0 vai a 277. 

CALL 1601.A=0D.RST 10. 

POP BC.(5C8C)=FFH. 

Vai a NEXTl . 

TOS = (Blocco buffer piu’ 
vecchio) 

TOS = (Ultimo blocco buffer) 

TOS = (Numero di buffers disco) 
Stack: Indfl32 
Stack: Ind+132 flag vero se 
Ind+132=LIMIT 

Se il flag e’ falso vai a 282 
Sostituisce FIRST 
Lo confronta con PREV. 

(Lascia ind flag) 

TOS=contenuto di PREV 

Mette a 1 il bit 15 del 

contenuto di PREV. 

Stack: FIRST LIMIT-FIRST 
Cancella l’area buffer con zero 

Da FIRST a LIMIT-1; 

Mette 7FFF in (I) 

STEP 132 

Ciclo a 285 

Mette a 0 OFFSET 

Stack: (USE) TORS: (USE) 

Avanza al prossimo buffer 

Se PREV vai a 288 

Segnalo come in uso 

Se l’ultimo buffer aggiornato 

(negativo) metti un flag vero 

Se il flag e’ falso vai a 289 

(USE)=(USE)+2. ((USE)) 

Azzera msb 

Scrivi il buffer su disco 
Definisce (USE) come scritto. 
Mette PREV=USE 
Lascia (USE)+2 
Stack:n.blocco+OFFSET 
Trasferimento a TORS 
Stack: PREV PREV 
Stack: PREV (PREV) 

Stack: PREV (PREV)-TORS 
Stack: PREV+(PREV)-TORS 
Se 0 vai a 293 

Muove al prossimo buffer. Vero 
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0BRANCH 0014 
DROP 

R BUFFER 


DUP 

R 1 R/W 
2 - 


292 


DUP 0 R - 



DUP f 

0= 

0BRANCH FFD6 
DUP PREV ! 

293 


R> DROP 

2 + 

294 

LO 


295 

HI 


296 

R/W 

>R 


B/BUFF * 

LO + 

DUP HI > 

LIT 0006 
?ERROR 

R> 

0BRANCH 0004 
SWAP 

297 B/BUF 

CMOVE 

298 FLUSH #BUFF 

1 + 

0 (DO) 

299 BUFFER DROP 

(LOOP) FFF8 

300 LOAD DUP 0= 

LIT 0009 
7ERROR 

BLK @ 

>R 

IN 0 >R 
0 IN ! 

B/SCR * 

BLK ! 
INTERPRET 
R> IN ! 

R> BLK ! 


se PREV 

Vai a 292 se falso 
Scarta l’indirizzo del buffer 
Vedi sopra (n.blocco + OFFSET 
fornisce i dati) 

Duplica l’indirizzo 
Legge nell’ultimo buffer 
Modifica l’indirizzo 
Confronta con TORS i dati dal 
buffer 

Duplica il TOS 

Inverte lo stato del flag 

Se il flag e’ falso vai a 291 

Definisce PREV 

Scarta il TOS 

Avanza l’indirizzo 

TOS=D000 (Indirizzo del disco 

RAM 

TOS=FBFF (Fine del disco RAM) 
TORS=flag direzione 
(0=scrittura,1=lettura) 

Stack: Ind blocco*128 
Stack; ind blocco*128+D000 
Flag vero se eccede i limiti 
Errore 6 

Riporta l’errore se il flag e’ 
falso 

Cancella TORS, flag direzione 
in TOS 

Vai a 297 se e’ falso 


Copia un buffer pieno come da 
istruzioni 


Ciclo a 299 

Flag vero se c’e’ 

corrispondenza 

Errore numero 9 

Riporta l’errore se e’ vero 

(LOAD dello schermo 0) 

Legge il numero del blocco 
Numero blocco in TORS 
IN in TORS 
IN=0 

schermo*B/SCR 
Scrive in BLK 

Riporta IN al valore originale 
Riporta BLK al valore originale 
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*301 

—> 

7LOADING 


Errore se non si e’ in LOAD 



0 IN ! 


IN=0 



B/SCR BLK 

9 

B/SCR BLK 



OVER 


B/SCR BLK BSCR 



MOD 


BLK resto di BLK/B/SCR 



- BLK +! 


BLK=BLK+BLK-resto 

*302 

’ (apostrofo) 

-FINO 0= 


Cerca il nome, Inverte il tlag 



0 7ERROR 


Errore 0 sa non viene trovato 



DROP 

LITERAL 


Scarta il byte lunghezza 

303 

BACK 

MERE - , 


Memorizza ind-HERE 

*304 

BEGIN 

7C0MP 


Errore se il modo non e’ 

compilazione 



HERE 1 


Identifica il punto di 
rlcorsione, mette a uno il 
riferimento a PAIRS 

*305 

ENDIF 

7C0MP 


Errore se il modo non e’ 

compilazione 



2 7PAIRS 


Errore se il riferimento a 

PAIRS non e’ 2 



HERE OVER 

- 

Stack: a HERE-a 



SWAP ! 


Scrive l’ampiezza della 

associazione 

*306 

THEN 

ENDIF 


Le due parole hanno lo stesso 
significato 

*307 

DO 

COMPRE (DO) 



HERE 3 


Identifica il punto di 
ricorslone, riferimento a PAIRS 
uguale a 3 

308 LOOP 

3 7PAIRS 


Errore se il riferimento a 





PAIRS non e’ = 3 



COMPRE (LOOP) 



BACK 


Calcola l’ampiezza della 

associazione all’indietro 

*309 

+LOOP 

3 7PAIRS 


Errore se il riferimento a 



COMPRE (+LOOP) PAIRS non e’ 3 



BACK 


Calcola l’ampiezza della 
associazione all’indietro 

*310 

UNI IL 

1 7PAIRS 


Errore se il riferimento a 
PAIRS non e’ 1 



COMPRE 0 

BRANCH 



BACK 


Calcola l’ampiezza della 

associazione all’indietro 

*311 

END 

UNIR 


Le due parole hanno lo stesso 
significato 

*312 

AGAIN 

1 7PAIRS 


Errore se il riferimento a 
PAIRS non e’ 1 



COMPRE BRANCH 



BACK 


Calcola l’ampiezza della 

associazione all’indietro 

*313 

REPEAT 

>R >R 
AGAIN 


TOS, 20S al Return Stack 



R> R> 


TOS, 20S al loro valore 
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*314 IF 

*315 ELSE 


*316 WHILE 

317 SPACES 

318 

319 <# 

320 #> 

321 SIGN 


322 # 


323 

324 #S 


325 D.R 


iniziale 

2 - Converte 11 riferimento a PAIRS 

da 4 a 2 (vedi WHILE) 

ENDIF 

COMPRE 0BRANCH 
HERE 

0 , Riserva spazio 

2 Riferimento PAIRS=2 

2 7PAIRS Errore se il riferimento a 

PAIRS non e’ uguale a 2 
COMPRE BRANCH 
HERE 


0 , 

SWAP 

2 ENDIF 2 
IF 2+ 

0 MAX 
-DUP 

0BRANCH 000C 
0 (DO) 

SPACE 

(LOOP) FFFC 
PAD HLD ! 
DROP DROP 


Riferimento a PAIRS=2 
Esegue IF, poi incrementa di 2 
il riferimento a PAIRS 
Assicura un valore positivo 
Duplica se non e’ zero 
Fine se TOS=0 

Emette uno spazio 
Loop a 318 
Mette HLD=PAD 

Scarta il bilanciamento dei 


HLD 0 

PAD OVER - 

ROT 

0 < 


numeri 
Legge HLD 

Stack: HLD PAD-HLD 
Porta il segno in TOS 
Vero se TOS minore di 


zero 


0BRANCH 0008 Se TOS=0 allora fine ' 

LIT 002D Codice del segno meno 

HOLD Memorizza ad HLD 

BASE 0 Stack: X Y BASE 

M/MOD Stack: resto doppio-quoziente 

ROT Stack: doppio-quoziente reato 

LIT 0009 OVER Stack: doppio-quoziente resto 
9 resto 

< Vero se i1 reato eccede 9 

0BRANCH 0008 Val a 323 se e’ falso 

LIT 0007 + Somma 7 al resto 

LIT 0030 + Somma 48 per formare il codice 


HOLD 

* 

OVER OVER 
OR 0* 

0BRANCH FFF4 
>R SWAP OVER 

OABS 
<# #S 


ASCII 

Memorizzalo in HLD 
Vedi sopra 

Stack: numero-doppio 
numero-doppio 

Flag vero se il numero e' =0 

Se e’ falso vai a 324 

Stack: Y X Y (XY numero doppio) 

TORS=n 

Rende positivo XY 
Mette il numero in PAD 
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SIGN #> Aggiunge il segno 

R> OVER - Stack: ind cont n-cont 

SPACES Emette n-cont spazi 

TYPE Scrive il numero 

Notate che il numero viene ridotto a zero da #S, cosi’ il 
segno deve essere determinato dalla copia di Y. 


32S 

• R 

>R 

n in TORS 




S—>D 

Segno esteso per formare 
numero doppio 

un 



R> 

Riprende n 




D.R 

Vedi sopra 


327 

D. 

0 

Chiama un campo di lunghezza 

0 



D.R 

Vedi sopra 




SPACE 

Aggiunge uno spazio 


328 


S—>D 

Estende il segno per formare 
numero doppio 

un 



D. 

Vedi sopra 


329 

7 

0 . 

Scrive il contenuto 




dell’indirizzo specificato 
TOS 

in 

330 

u. 

0 

Forma un numero doppio senza 




segno 




D. 

Vedi sopra 


331 

VLIST 

LIT 0080 

OUT ! 

0UT=128 




CONTEXT 0 0 

Contenuto di CONTEXT in TOS 


332 


OUT 0 

LIT 001F 

LIT 0008 

Stack: (CONTEXT) OUT 31 8 




- > 

Flag vero se OUT eccede 23 




0BRANCH 000A 

Se il flag e’ falso vai a 333 




CR 0 OUT 

Newline. OUT=0 


333 


DUP 

Duplica il puntatore 




ID. 

Visualizza il nome 




PFA LFA 0 

Legge il campo associazione 




DUP 0=. 

Flag vero se e’ zero 




7TERMINAL 

Flag vero se BREAK 




OR 

0 flag vero effettivo 



0BRANCH FFD0 Se il tlag e’ falso ciclo a 332 
DROP Scarta l’ultimo indirizzo 

334 LIST DECIMAI 

CR Newline 

DUP SCR ! Definisce lo schermo scelto 
<.*> testo Scrive 'SCR #' 

Visualizza il numero di schermo 

LIT 0010 
0 <D0> 

335 CR Newline 

I Numero di linea 

LIT 0003 .R Scrive in un campo di tre spazi 

SPACE Aggiunge uno spazio 

I SCR 0 

.LINE Visualizza la linea memorizzata 
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7TERMINAL 

Vero se BREAK 





0BRANCH 0004 
LEAVE 

Se falso vai a 336 

336 




(LOOP) FFE2 

Vai a 335 





CR 

Newline 

337 

LINK 




POP HL.A=L.Se AO0 allora A=3 
(hold2)=A.Val a NEXTl 

338 

CLS 




PUSH BC.A=2.CALL 1601. 

CALL 0D6B.A=2.CALL 1601. 

POP BC.Vai a NEXTl 

339 

■ CPU 



<.*> testo 

Scrive MSK SPECTRUM* 


A questo 

punto 

viene riservata un’area per gli headers del 


nastro della forma: 



03 44 49 

53 

43 

20 20 20 20 

20 20 FF 2B 00 D0 20 20 


D I 

S 

C 




03 44 49 

53 

43 

20 20 20 20 

20 20 FF 2B 00 D0 20 20 


D I 

S 

C 



340 

(TAPE) 




POP HL.PUSH BC.PUSH IX. 
A=L.HL=D000.IX=(inl 2 io 
dell’area header).A=(5C72). 

CALL 075A.POP IX.POP BC. 

Vai a NEXTl 

342 

TEXT 



MERE 

C/L 1 + 

Stack: MERE C/L+1 





BLANKS 

Definisce una linea di spazi a 
HERE 





WORD 

MERE PAD C/L 

Definisce la stringa a HERE 





1+ CMOVE 

Copia la linea completa da PAD 

343 

LINE 



DUP 

Stack: linea linea 





LIT FFF0 AND 

Limite a 15 





LIT 0017 

Errore numero 23 





7ERR0R 

Errore se non e’ 0 





SCR 0 

Legge lo schermo corrente 





(LINE) 

Definisce l’indirizzo della 

linea e lo considera 





DROP 

Scarta il conto della lunghezza 

344 

LOADT 



1 (TAPE) 


345 

SAVET 



FLUSH 0 (TAPE) 

346 

VERIFY 



2 (TAPE) 


348 

2SWAP 



ROT >R 

Stack daabcdadacd 
b in TORS 





ROT R> 

Stack: c d a b 

349 

SIZE 



MERE 

0 + ORIGIN - 

TOS=HERE-ORIGIN 

350 

FREE 



SP0 MERE - 

TOS=SP-HERE 

351 

FORGET 



CURRENT 0 
CONTEXT 0 - 

TOS=CURRENT-CONTEXT 





LIT 0018 

Errore numero 24 





7ERR0R 

t 

Riporta l’errore se non e’ zero 
TOS=PFA di parole da eliminare 





DUP 

Duplica 





FENCE 0 U< 

Flag vero se PFA e’ sotto FENCE 
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LIT 0015 Errore numero 21 

7ERR0R Errore se TOS e' vero 

DUP NFA Duplica PFA e sostituisce NFA 

per la copia 
DUP ! DP=NFA 

LFA 0 Converte PFA a NFA e legge 

1'associazione 

CURRENT 0 ! Pone l’associazione alla 
locazione definita da CURRENT 

Notate che non occorrono cancellazioni effettive. Poiché’ 
il puntatore e’ stato modificato, le nuove parole verranno 
scritte sopra quelle vecchie. 


352 INDEX CLS 

1+ SWAP 

<D0> 

353 CR 

13 .R 

SPACE 
0 I .LINE 

TTERMINAL 
0BRANCH 0004 
LEAVE 

<LOOP) FFE6 

354 TRIAD CLS 

3 / 

3 * 

3 OVER + 

SWAP 

<D0) 

356 OR 

I LIST 
7TERMINAL 
0BRANCH 0004 
LEAVE 

357 <L00P> FFF0 

*358 EDITOR 

359 (spazio) 

360 WHERE DUP 

B/SCE / 

DUP SCR ! 

(.*) testo 
DECIMAL . 
SWAP C/L 
/MOD 
C/L * 

ROT 


Cancella lo schermo 
Inverte i parametri 
incrementando la fine 

New1 ine 

Scrive il numero dello schermo 
in campo a tre spazi 
Somma uno spazio 
Visualizza la linea 0 dello 
schermo I 

Pone a vero se BREAK 

Va a 354 se non e’ BREAK 

Termina il ciclo 

Ciclo a 354 

Cancella lo schermo 

Divide il numero di schermo per 

3 

Lo moltipllca per 3 
Stack: X X+3 
Stack: X+3 X 

Newline 

Lista lo schermo I 

T0S=1 se BREAK 

Se non c’e’ BREAK vai a 357 

Termina il ciclo 

Ricorslone a 356 

Esegue il codice a 164 

Esegue 225 

Associa all’ultima istruzione 
nel vocabolario EDITOR 
Stack: IN BLK BLK 
Stack: IN BLK BLK+B/SCR 
Definisce SCR da TOS 
Lo stack non viene modificato 
Scrive "SCR 

Scrive il numero dello schermo 
Stack: BLK IN C/L 
Stack: BLK resto quoziente 
Stack: BLK resto linea 
Stack: reato linea BLK 
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BLOCK + 

Stack: resto 1inea+lndlrlzzo 

CR 

Newline 

C/L TYPE 

Scrive la linea 

CR 

Newline (Stack: resto) 

MERE C@ - 

Stack: resto-<HERE> 

SPACES 

Emette TOS spazi 

LIT 005E 

Codice per la freccia all’insu’ 

EMIT 

Scrive il carattere 

EDITOR 

Seleziona il vocabolario EDITOR 

QUIT 

Ritorna il controllo all’utente 


Questa utilissima routine può’ venir chiamata in seguito a 
un errore per trovare la locazione dell’errore. Essa 
definisce il modo editor e cancella gli stacks. 

Questo e’ l’inizio del vocabolario EDITOR. Queste 
istruzioni sono associate all’inizio del vocabolario FORTH 
tramite il codice in 227. In VLIST, con selezionato 
l’EDITOR, appare prima il vocabolario EDITOR, cui segue il 
vocabolario FORTH. 


361 

«LOCATE 

R« @ 

Legge la locazione del cursore 



C/L /MOD 

Stack: colonna linea 

362 

#LEAD 

«LOCATE 

Vedi sopra 



LINE 

Stack: colonna indirizzo 



SWAP 

Stack: indirizzo colonna 

363 

«LAG 

«LEAD 

Vedi sopra 



DUP 

Stack: Ind colonna colonna 



>R 

TOS in TORS 



+ 

Stack: ind+colonna 



C/L R> 

Stack: ind+colonna C/L colonna 



- 

Stack: ind+colonna C/L-colonna 

364 

-MOVE 

LINE 

Stack: indi ind2 

(T0S=indlrlzzo della linea) 



C/L 

Stack: indi ind2 C/L 



CMOVE 

UPDATE 

Copia una linea da indi a ind2 

365 

H 

LINE PAD 1+ 

Stack: Ind-linea PAD+1 



C/L DUP 

Stack: ind-linea PAD+1 C/L C/L 



PAD C! 

Stack: prima locaz. PAD 

definita a C/L 



CMOVE 

Copia una linea da ind-linea a 
PAD 

366 

E 

LINE C/L 

Stack: ind C/L 



BLANKS 

UPDATE 

Riempie la linea con spazi 

367 

S 

DUP 1 - 
LIT OOOE 
(DO) 

Stack: Linea Linea-l 

368 


I LINE 

Indirizzo della linea I 



I 1 + 

I + l 



-MOVE 

LIT -1 

Copia la linea I+l 



(+LOOP) FFF0 

Vai a 368 



E 

Cancella la linea 

369 

D 

DUP 

Stack: Linea Linea 
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H 

Copia la linea In PAD 



LIT 000F 

DUP ROT 
<D0) 

Stack: 15 15 Linea 

370 


I 1+ LINE 

I 

-MOVE 

Indirizzo della linea I+l 



Copia la linea I+l a linea I 



(LOOP) FFF4 

Vai a 360 



E 

Cancella la linea 15 

371 

M 

R# +! 

Aggiunge TOS alla posizione del 




cursore 



CR SPACE 

New11 ne spazio 



#LEAD TYPE 

Scrive 11 testo dal cursore 



LIT 005F 

Codice per la sottolineatura 



EMIT 

Scrive il carattere 



«LAG TYPE 

Scrive il testo dal cursore a 
fine linea 



«LOCATE , 

Scrive il numero 



DROP 

Scarta la colonna 

372 

T 

DUP 

Stack: Linea Linea 



C/L ♦ 

Stack: Linea LineafC/1 



R« ! 

Definisce la posizione del 
cursore all’inizio della linea 



DUP 

Stack: Linea Linea 



H 

Copia la linea in PAD 



0 M 

Scrive la linea (cursore alla 
estremità’ sinistra) 

373 

L 

SCR 0 

Legge il numero dello schermo 
corrente 



LIST 

Lista quello schermo 



0 M 

Scrive la linea del cursore 

374 

R 

PAD 1+ SWAP 

Stack: PAD+Linea 



-MOVE 

Copia la linea da PAD alla 
linea specificata 

375 

P 

1 TEXT 

Mette il testo in PAD 



R 

Copia il testo alla linea 

specificata 

376 

I 

DUP 

Stack: Linea Linea 



S 

Fa scivolare di una linea 



R 

Copia la linea da PAD 


Notate che 

Re I non sono uniche. Mentre 1'EDITOR e’ 


effettivo, 
Tuttavia, 1 

vengono sostituiti 1 significati FORTH. 

’R originale viene usato In diverse definizioni 


EDITOR. 



377 

TOP 

0 R« ! 

Mette a 0 la posiz. del cursore 

378 

CLEAR 

SCR ! 

Definisce lo schermo da TOS 



LIT 0010 0 
(DO) 

Sedici iterazioni 

379 


I E 

Cancella la linea I 



(LOOP) FFFA 

Va a 379 

380 

COPY 

B/SCR » 

Stack: SCRl SCRUB/SCR 



OFFSET 0 + 

Somma OFFSET 



SWAP 

Stack: SCR2»B/SCR+0FFSET SCRl 


121 




B/SCR ♦ 

Stack; SCR2*B/SCR+0FFSET 
SCR1»B/SCR (= A B) 


B/SCR OVER + 

Stack: A B B+B/SCR 


SWAP 

(DO) 

Stack: A B+B/SCR B 

381 

DUP 

Stack: A A 


I BLOCK 

Indirizzo del blocco I 


2 - ! 

Scrive A a ind-2 


1 + 

UPDATE 

Stack: A+1 


(LOOP) FFEE 

Ciclo a 381 


DROP 

Scarta A 


FLUSH 

Copia il buffer aggiornato 
disco RAM 

382 -TEXT 

SWAP 

Stack: indi ind2 cont 


-DUP 

Duplica TOS se non-zero 

Se e' zero vai a 386 


0BRANCH 002A 


OVER + 

Stack: Indi Ind2 Ind2+Count 


SWAP 

(DO) 

Stack: Indi Ind2+Count Ind2 

283 

DUP 

Stack: Ind Ind 


C0 I C@ - 

Stack: Ind (Ind)-(I) 


0BRANCH 000A 

Se zero vai a 384 


0= 

LEAVE 

Flag vero se zero 


BRANCH 0004 

Vai a 386 

384 

1 + 

Incrementa l’indirizzo 

385 

(LOOP) FFE6 

Ciclo a 383 


BRANCH 0006 

Fine 

386 

DROP 0= 

Scarta l’indirizzo mette 
flag falso 

387 MATCH 

>R >R 

2DUP 

Stack: indi conti 
(lnd2 cont2 in RS) 


R> R> 

Stack: indi conti indi conti 
ind2 cont2 


2SWAP 

Stack: indi conti lnd2 cont2 
indi conti 


OVER + 

Stack: indi conti ind2 cont2 
indi indl+contl 


SWAP 

(DO) 

Stack: indi conti ind2 cont2 
indl+contl indi 

388 

2DUP 

Stack: indi conti lnd2 cont2 
lnd2 cont2 


I - TEXT 

Stack: indi conti lnd2 cont2 
flag 

Se e’ falso vai a 389 


0BRANCH 001A 


>R 2DR0P R> 

- I SWAP - 
0 SWAP 0 0 

Scarta 20S,30S 


LEAVE 

Termina 11 ciclo 

389 

(LOOP) FFDC 

Ciclo a 388 


al 


un 
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2 DROP SWAP 
0= 

SWAP 

Inverte li tlag 


390 

ILINE 

#LAG PAD 

Stack: cursore a EOL PAD 




COUNT 

Stack: cursore a EOL PAD cont 



MATCH 

R# +! 

Aggiorna la posizione 
cursore 

del 

391 

FINO 

LIT 03FF 

R# @ < 

Vero se la posizione 
cursore e’ minore di 03FF 

del 



0BRANCH 0012 

Se e’ zero vai a 392 




TOP 

Azzera la posizione del cursore 



PAD MERE 

C/L 1 + 

CMOVE 

Copia da PAD a MERE, 
bytes 

C/L+1 



0 ERROR 

Riporta l’errore 0 


392 


ILINE 

Vedi sopra 




0BRANCH FFDE 

Se e’ zero vai a 391 


394 

DELETE 

>R #LAG 

Stack: cursore a EOL, n a 

TORS 



+ R - 

Stack: cursore a EOL-n 




#LAG 

Stack: cursore a EOL-n 
cursore a EOL 




R MINUS 

Somma allo stack -n 




R# +! 

Somma -n alla posizione 
cursore 

del 



#LEAD + 

SWAP 

CMOVE 

R> BLANKS 
UPDATE 



395 

N 

FINO 

Ricerca 




0 M 

Visual izza 


396 

F 

1 TEXT 

Testo in PAD 




N 

Trova il testo 


398 

B 

PAD C0 

Legge la lunghezza da PAD 




MINUS 

Nega 




M 

Somma alla posizione 

cursore 

del 

399 

X 

1 TEXT 

Testo in PAD 




FIND 

Locai izza 




PAD C0 

Legge la lunghezza da PAD 




DELETE 

Cancella gli ultimi n caratteri 



0 M 

Visualizza la linea 


400 

TILL 

#LEAD + 

Linea+colonna 




1 TEXT 

ILINE 

Testo in PAD 




0= 

Inverte il flag 




0 7ERROR 

Errore se e’ vero 




#LEAD + 

SWAP - 
DELETE 

Linea+colonna 
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401 C 


0 M 
1 TEXT 
PAD COUNT 
«LAG 

ROT OVER 
MIN >R 
R R# +! 


Visualizza la linea 
Testo In PAD 
Modifica 11 riferimento 

Stack: da abc a bcac 

Somma TORS alla posizione del 


cursore 

R _ ^R 

DUP MERE R 
CMOVE 

MERE #LEAD 
+ R> 

CMOVE 

R> 

CMOVE 

UPDATE 

0 M Visualizza la linea 

Questo completa 11 vocabolario EDITOR. Quando 11 
vocabolario e’ Inabilitato, 11 dizionario ricerca l’Inizio 
con la parola C. La parola NEXT piu’ sotto, e’ associata a 
WHERE (360) 


402 


NEXT 


Indirizzo di ritorno costante 
associato a 3 

403 


PUSHHL 


Indirizzo di ritorno costante 
associato a 2 

404 


PUSHDE 


Indirizzo di ritorno costante 
associato a 1 

405 

INP 



POP HL.PUSH BC.BC=HL.IN A,<C). 
POP 8C.H=0.L=A.PUSH HL. 





Vai a NEXTl 

406 

OUTP 



POP HL.POP DE.PUSH BC.BC=HL. 
A=E.0UT <C),A.P0P BC, 

Val a NEXTl 

407 

SCREEN 



POP HL.POP DE.PUSH BC.PUSH IX. 
C=E.B=L.CALL 2538.CALL 2BF1. 
A=<DE).H=0.L=A.POP IX.POP BC. 
PUSH HL.Val a NEXTl 

408 

AT 

ABS DUP 
LIT 001F 

> 

Stack: linea colonna linea 



0BRANCH 

0008 

Se colonna non maggiore di 31 
vai a 409 



2DR0P 


Cancella lo Stack 



BRANCH 0022 

Fine 

409 


SWAP ABS 

DUP 

Stack: colonna linea linea 



LIT 0015 

> 




0BRANCH 

0008 

Se linea non maggiore di 21 vai 
a 410 



2DR0P 


Cancella lo stack 



BRANCH 000C 

Fine 

410 


LIT 0016 
EMIT 


Emetti 22 



EMIT 


Visualizza la linea 



411 BOROER 

412 BLEEP 

413 PAPER 


414 


415 


416 


417 ATTR 

418 POINT 


EMIT 

ABS DUP 

LIT 0009 > 

Visualizza la colonna 

POP HL.PUSH BC.A=L.CALL 2297. 
POP BC.Vai a NEXTl 

POP HL.POP DE.PUSH BC.PUSH IX. 
CALL 03B5.POP IX.POP BC. 

Vai a NEXTl. 

0BRANCH 0008 

Se il parametro non e’ maggiore 
di 9 vai a 414 

DROP 

Cancella lo stack 

BRANCH 0088 
DUP 

LIT 0009 = 

Fine 

08RANCH 001A 

Se i1 parametro non e’ 9 vai a 
415 

LIT 5C91 

Indirizzo di PFLAG 

C(? 

Legge PFLAG 

LIT 0080 OR 

Mette a 1 il bit 3 

LIT 5C91 C! 

Scrive in PFLAG 

DROP 

Scarta il parametro 

BRANCH 0064 
DUP 

LIT 0008 = 

Fine 

08RANCH 001A 

Se il parametro non e’ 8 vai a 
416 

LIT 5C8E 

Indirizzo di MASKP 

C@ 

Legge MASKP 

LIT 0038 OR 

Mette all blts 3, 4 e 5 

LIT 5C8E 

Indirizzo di MASKP 

DROP 

Scarta il parametro 

BRANCH 0040 

Fine 

LIT 0008 * 

Moltiplica il parametro per 8 

LIT 5C8D C@ 

Legge ATTRP 

LIT 00C7 AND 

Azzera i blts 3, 4e5 

OR 

OR dei parametri 

LIT 5C8D C! 

Scrive in ATTRP 

LIT 5C91 C@ 

Legge PFLAG 

LIT 007F AND 

Azzera il bit 7 

LIT 5C91 ! 

Scrive in PFLAG 

LIT 5C8E C@ 

Legge MASKP 

LIT 00C7 AND 

Azzera i bits 3, 4 e 5 

LIT 5C8E ! 

Scrive in MASKP 


POP HL.POP DE.PUSH BC.PUSH IX. 
C=E.B=L.CALL 2583.CALI 1E94. 
H=0.L=A.POP IX.POP BC.PUSH HL. 
Vai a NEXTl 

POP HL.POP DE.PUSH BC.PUSH IX. 
C=E.B=L.A=L.Se A non e’ minore 
di HOH allora A=AFH,B=A. 

CALL 22CE.CALL 1E94.H=0.L=A. 

POP IX.POP BC.PUSH HL. 

Val a NEXTl. 
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419 INK 


ABS DUP 
LIT 0009 > 
0BRANCH 0008 

DROP 

BRANCH 0082 

420 DUP 

LIT 0009 = 
0BRANCH 001A 

LIT 5C91 C@ 
LIT 0020 OR 
LIT 5C91 C! 
DROP 

BRANCH 005E 

421 DUP 

LIT 0008= 
0BRANCH 001A 

LIT 5C8E C@ 
LIT 0007 OR 
LIT 5C8E C! 
DROP 

BRANCH 003A 

422 LIT 5C8D C@ 

LIT 00F8 AND 
OR 

LIT 5C8D C! 
LIT 5C91 C@ 
LIT 00DF AND 
LIT 5C91 ! 
LIT 5C8E C@ 
LIT 00F8 AND 
LIT 5C8E ! 

423 FLASH 0BRANCH 0018 

LIT 5C8D C@ 
LIT 0080 OR 
LIT 5C8D ! 
BRANCH 0014 

424 LIT 5C8D C@ 

LIT 007F AND 
LIT 5C8D ! 

425 BRIGHT 0BRANCH 0018 

LIT 5C8D C@ 
LIT 0040 OR 
LIT 5C8D ! 
BRANCH 0014 

426 LIT 5C8D C@ 

LIT 00BF AND 
LIT 5C8D ! 

427 GOVER 0BRANCH 0016 

LIT 5C91 C@ 

2 OR 


Se il parametro non e’ maggiore 
di 8 vai a 420 
Scarta il parametro 
Fine 


Se il parametro non e’ 9 vai a 
421 

Legge PFLAG 
Mette a 1 il bit 5 
Scrive in PFLAG 
Scarta il parametro 
Fine 


Se il parametro non e’ 8 vai a 
422 

Legge MASKP 

Mette a 1 i blts 0,1 e 2. 

Scrive in MASKP 
Scarta il parametro 
Fine 

Legge ATTRP 

Azzera i bits 0, 1 e 2. 

OR del parametro 

Scrive in ATTRP 

Legge PFLAG 

Azzera il bit 5 

Scrive in PFLAG <una parola) 

Legge MASKP 

Azzera 1 blts 0, 1 e 2. 

Scrive in MASKP (una parola) 

Se i1 parametro e’ 0 vai a 424 

Legge ATTRP 

Mette a0ilbit7 

Scrive in ATTRP 

Fine 

Legge ATTRP 

Azzera il bit 7 

Scrive in ATTRP (una parola) 

Se il parametro e’ 0 vai a 426 

Legge ATTRP 

Mette a 1 il bit 6 

Scrive in ATTRP (una parola) 

End 

Legge ATTRP 
Azzera il bit 6 
Scrive in ATTRP 

Se il parametro e’ 0 vai a 428 

Legge PFLAG 

Mette al il bit 1 
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LIT 5C91 ! 
BRANCH 9914 


428 


LIT 5C91 C@ 
LIT 00FD AND 
LIT 5C91 ! 

429 

INVERSE 

0BRANCH 0018 
LIT 5C91 C@ 
LIT 0008 OR 
LIT 5C91 ! 
BRANCH 0014 

430 


LIT 5C91 C@ 
LIT 00F7 AND 
LIT 5C91 ! 

431 

NOT 

0= 

432 

I ’ 


433 

J 


434 

2C0NSTANT 

CREATE 

SMUDGE 

HERE 2! 

LIT 0004 
ALLOT 
(:C0DE> 

435 

436 

2VARIA8LE 

2C0NSTANT 
<;C0DE> 

437 

438 

U.R 

>R 0 R> 


D.R 


Scrive In PFLAG 
Fine 

Legge PFLAG 
Azzera il bit 1 
Scrive in PFLAG 

Se il parametro e’ 0 vai a 430 

Legge PFLAG 

Mette a 1 il bit 3 

Scrive in PFLAG 

Fine 

Legge PfLAG 
Azzera il bit 3 
Scrive in PFLAG 
Sinonimi 

HL=<RSP)+2.DE=<HL).PUSH DE. 

Vai a NEXTl 

HL=<RSP)+4.DE=<HL).PUSH DE. 

Vai a NEXTl 


Scrive un numero doppio 

Riserva ulteriori quattro bytes 
Associazione al codice seguente 
INC DE.Scambia DE,HL.HL=HL+2. 
DE=<HL).PUSH DE.HL=HL-2.DE=(HL) 
.PUSH DE.Vai a NEXTl, 

Associazione al codice seguente 
INC DE.PUSH DE.Vai a NEXTl. 
Rende 20S un numero doppio 
(senza segno) 
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\/oc::aàx} 1 sur 1 o RORTH 

Il numero di ogni parola e’ un’associazione 
all'Appendice A 


! 

77 

2+ 

125 

icsp 

146 

2! 

79 

# 

322 

20 

76 

#> 

320 

2C0NSTANT 

434 

i»BUFF 

280 

2DRCP 

347 

#S 

324 

2DUP 

717 

> 

302 

20VER 

439 

< 

229 

2SWAP 

348 

< . ") 

173 

2VARIABLE 

438 

< ;C0DE) 

160 


80 

<+L00P) 

13 


82 

(ABORT) 

205 

•CODE 

161 

(DO) 

14 

;S 

56 

(FINO) 

19 

< 

132 

(LINE) 

258 

<# 

319 

(LOOP) 

9 

<BUILDS 

162 

(NUMBER) 

198 

= 

131 

(TAPE) 

340 

> 

135 

» 

251 

>R 

58 

*/ 

256 

? 

329 

♦ /MOD 

255 

?COMP 

149 

+ 

63 

?CSP 

152 

+ ! 

72 

7ERR0R 

147 

+- 

241 

7EXEC 

150 

+BUFF 

281 

7L0ADING 

153 

+ L00P 

309 

7PAIRS 

151 

+0RIGIN 

100 

7STACK 

215 

» 

128 

7TERMINAL 

34 


130 

0 

74 

— > 

301 

ABORT 

233 

-OUP 

138 

ABS 

243 

-FINO 

204 

AGAIN 

312 

-TRAILING 

169 

ALLOT 

127 


328 

AND 

49 

M 

174 

AT 

408 

'.CPU 

339 

ATTR 

417 

■ LINE 

259 

B/BUFF 

98 

.R 

326 

B/SCR 

99 

/ 

253 

BACK 

303 

/MOD 

252 

BASE 

118 

0 

90 

BEGIN 

304 

1 

91 

BL 

94 

2 

92 

BLANKS 

129 

3 

93 

BLEEP 

412 

0< 

62 

BLK 

110 

0= 

61 

BLOCK 

290 

0BRANCH 

8 

BRANCH 

7 

1 + 

124 

BRIGHT 

425 


12S 





BORDER 

409 

FIRST 

96 

BUFFER 

287 

FLASH 

423 

C! 

78 

FLD 

120 

C/L 

95 

FLUSH 

298 

c, 

129 

FORGET 

351 

C@ 

78 

FORTH 

226 

CASE 

453 

FREE 

350 

CFA 

143 

GOVER 

427 

CLS 

338 

HERE 

126 

CMOVE 

36 

HEX 

158 

COLO 

239 

HI 

295 

COMPRE 

154 

HLD 

123 

CONSTANT 

84 

HOLD 

193 

CONTEXT 

115 

I 

15 

COUNT 

165 

I ’ 

432 

CR 

35 

ID. 

209 

CREATE 

210 

IF 

314 

CSP 

121 

IMMEDIATE 

223 

CURRENT 

116 

IN 

111 

D+ 

64 

INDEX 

352 

D+- 

242 

INIT-DISC 

461 

D. 

327 

INK 

419 

D.R 

325 

INKEY 

459 

DABS 

244 

INP 

405 

DECIMAI 

159 

INTERPRET 

216 

DEFINITIONS 

228 

INVERSE 

429 

DIGIT 

16 

J 

433 

DLITERAL 

214 

KEY 

33 

DMINUS 

66 

LATEST 

141 

DO 

307 

LEAVE 

57 

DOES> 

163 

LFA 

142 

DP 

108 

LIMIT 

97 

DPL 

119 

LINE 

343 

DRAW 

447 

LINK 

337 

ORO 

286 

LIST 

334 

DROP 

68 

LIT 

5 

DUP 

70 

LITERAL 

213 

EDITOR 

358 

LO 

294 

ELSE 

315 

LOAD 

300 

EMIT 

32 

LOADT 

344 

EMPTY BUFFERS 

284 

LOOP 

308 

ENCLOSE 

28 

M* 

249 

END 

311 

M/ 

250 

ENDCASE 

456 

M/MOD 

257 

ENDIF 

305 

MAX 

247 

ENDOF 

455 

MESSAGE 

260 

ERASE 

191 

MIN 

245 

ERROR 

206 

MINUS 

65 

EXECUTE 

6 

MOD 

254 

EXIT 

440 

MON 

341 

EXPECT 

176 

NEXT 

402 

FENCE 

107 

NEXTl 

3 

FILL 

188 

NEXT2 

4 
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NFA 

144 

U.R 

438 

NOOP 

83 

U/MOD 

42 

NOT 

431 

UDG 

462 

NUM8ER 

201 

UNTIL 

310 

OF 

454 

UPDATE 

283 

OFFSET 

114 

USE 

278 

OR 

50 

USER 

88 

OUT 

112 

VARIA8LE 

86 

OUTP 

406 

VRIFY 

346 

OVER 

67 

VLIST 

331 

PAD 

194 

VOC-LINC 

109 

PAPER 

413 

VOCA8ULARY 

224 

PFA 

145 

WARM 

236 

PLOT 

441 

WARNING 

106 

POI NT 

418 

WHERE 

360 

PREV 

279 

WHILE 

316 

PUSHDE 

1404 

WIDTH 

105 

PUSHL 

2403 

WORD 

195 

QUERY 

184 

X 

185 

QUIT 

230 

XOR 

51 

R 

60 

[ 

155 

R# 

122 

[COMPRE] 

212 

R/W 

296 

] 

156 

R> 

59 



R0 

102 

c^atoolsurlo 

Eo: 

REPEAT 

313 

#LAG 

363 

ROT 

136 

#LEAD 

362 

RP@ 

54 

«LOCATE 

361 

RP! 

55 

-MOVE 

364 

S->D 

240 

-TEXT 

382 

S0 

101 

RINE 

390 

SAVET 

345 

8 

398 

SOR 

112 

C 

401 

SCREEN 

407 

CLEAR 

378 

SIGN 

321 

COPY 

380 

SIZE 

349 

D 

369 

SMUDGE 

157 

DELETE 

394 

SP! 

53 

E 

366 

SP@ 

52 

F 

396 

SPACE 

137 

FINO 

391 

SPACES 

317 

H 

365 

STATE 

117 

I 

376 

SWAP 

69 

L 

373 

TEXT 

342 

M 

371 

THEN 

306 

MATCH 

387 

TIB 

103 

N 

395 

TOGGLE 

73 

P 

375 

TRAVERSE 

139 

R 

374 

TRI AD 

355 

S 

367 

TYPE 

166 

T 

372 

U< 

133 

TRL 

400 

U* 

38 

TOP 

377 

U. 

330 

X 

399 
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"FORTH PER SPECTRUM" è un aiuto essenziale per chiunque desideri scoprire 
il vero potenziale del FORTH sul proprio SPECTRUM ed è l'ideale sia per il 
principiante che per il programmatore avanzato in quanto propone esempi e 
spiegazioni molto esaurienti. 

La popolarità del FORTH come linguaggio alternativo, che combina la facilità 
di un linguaggio ad alto livello e la velodfà del codice macchino, ha indòtto 
a renderlo disponibile per l'utente Spectrum.O 
Questo libro è stato progettato per fornire in dettaglio te tecniche 
che consentiranno al proqrammatore di comprendere interamente la Validità 
del FORTH. " 

Oltre ad affrontare in modo approfondito il fig-FORTH ABERSOFT, quésto jjbro i 
tratta delle tecniche specifiche di programmazione e della stesura di programmi ■ ‘ ” 
mediante molti esempi. 

Inoltre vengono affrontati vari argomenti come: l'aritmetica su FORTH, 
lo manipolazione dì stringhe e matrici, la definizione di nuove parole 
del dizionario, alcune particolarità del FORTH per b Spectrum e le caratteristiche 
essenziali del FORTH ABERSOFT. 
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